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SHARP POCKET COMPUTER PC-1211 
APPLICATIONS MANUAL 


Thank you for your purchase of the Sharp Pocket Computer PC-1211. 

This booklet covers a variety of fields of science and exemplifies computation programs pertinent to 
those fields. We shall be delighted if you arrange those programs yourselfs by reference to the practice 
in this book so that they best serve your purposes and your computer can display its full capability to 
be a help for your solving complicated problems. 

This manual has been, on our side, edited in accordance with the following standard. We ask you to 
read it through before starting to operate your machine. 
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an 


. Title 
Each program is given a brief TITLE summarizing the contents of the program. 
. Program No. 
P4 shows this machine, next A ~ X shows the classification. 
. Formula 
This column shows the nature of each program and the mathematical expressions pertinent to it. 
. Example 
In this column, the calculation example is given. 
. Operation 
This column gives the key operation needed to execute a given program based on data shown in the 
column “Example’’. 
Every program requires DEF mode setting 
(For the way of DEF mode setting, consult the Instruction Manual of the PC-1211. 
“CLOAD-. YLabelY [ENTER] ”? refers to the key operation that is required when programs re- 
corded on a cassette tape are used. Therefore, this operation must not be made after pro- 
gramming has been accomplished in the PRO mode. 
Labels are, in principle, identical to the codes given in the column “PROGRAM NO.” 
. Program List 
The list, made by a special device, reveals the process of entering the program concerned. 
The relation of the program list and the key operation of the PC-1211 are explained in the next page. 
Write the program in the machine in accordance with the program list. 
(Note) Before used, every program must be, after written in the machine, checked enough by 
reference to “Exampe,” etc. whether it is perfect or not. 
. Memory Contents 


This list gives a part of memory contents included in each program. 
Meanwhile, note that the manual is subject to enlargement or revision without prior notice. 
If you find any imperfections in the manual, please write to us. 


(Notice) Our company is not reponsible at all for monetary losses and missed profits that could 
arise in the use of this applications manual. 
A sub-routine uses, in principle, the 501th and subsequent lines. GO SUB 1 is two steps 
shorter than GO SUB 500. In terms of the number of steps, some programs are made so 
that smaller line numbers are affixed to their sub-routines. 


For program lists, note the following instructions. 

1. When you enter the program to the PC-1211 in accordance with the program list of this manual, set 
the machine at the PRO (program) mode and press the (N) [E| (w) (stir) keys to clear the program 
memory. 

2. Press the [ENTER] key at the end of each line. 

3. The above operation automatically forces a colon (:) to follow directly behind each line number. 
No colon needs to be written. 

4. It requires a space command to create a blank between double wedges V¥ YY, but does not require 
it to create a blank behind each command that is expressed by two or more characters. 

The following exemplifies this. 
p~——= Numeric 0 
-——> Acolon directly behind each line number is entered without the need to press the (]| 
key. 7 
Lad 
Press the (w) key following the [SHFT) key. 
No need to press the [SP¢] key. 


Poth the (ENTER) key, which creates a print 
of line end mark. 








10: “A™ PAUSE: — 
20: INPUT "R= “sRe”H= “ iHemLei* alo "N= 


30: I=H/L2C=R4( 1/6) /N | 
It is required to press the [sc] key. 


Press the [+] a key following the (SHFT) key. 


_ This indicates the key located on the left of the [+] key. 


rica Numeric 0 
| 


415: IF CABS F>=E-4)+(ABS G>=E-4)<>OLET A=A+ 
F:B=B+G:PAUSE FG: GOTO 400 


420: GOSUEB 900 
—+» This indicates the O key —a alphabet key. 


(Note) @ Use the [EATER] or [sec] key properly. 
@ The number of the last line in the program list indicates the number of step used. 
5. After entering the contents of the program list to the PC-1211, when you execute the program 
without using a cassette tape, skip the operation " CLOAD label "9 ENTER) , and set the machine 
at the DEF (definable) mode. 


For { Operation }, 


vy 
a Press the fw keys 


CLOAD VAT” ftitta 





When executing programs recorded on the tape (CLOAD), make the CA operation (press the [ON) key 
twice successively) before loading them. If the above operation is not made, an error could occur in 
print. The operation is not necessary when programs are written through keys. 
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. PROGRAM NO. 
Title SIMULTANEOUS EQUATIONS a 


{ Formula ] 
This program solves simultaneous equations by sweeping-out method. 

Express equations in matrices. 
Av=6, A={aij}, x={xi}, b={bi} (i, j=IK~n) 
p=amm (m=2~n) 
Q=aim/p Ci=1~m-—1) 
@ij=Qij—q*t amy (i=I~m) 
bi=bi-q*ebm 

Thus repeating computations, the coefficient of i<j is obtained as 
aj = 0 

Hence, 
aX, =b,, then x, =b,/a, 


An, X4 + AQ2X. = b,, then x2 = (b, = 1X1) /aa2 


[ Example ] 


When n memories: 


n—ll=i(it]) 


5x, +2 x42.—-8x5=9 


x, +52x,—-8x3=—-12 


i elements 
x,= 1.5714 


x9=—4.9048 Possible up to 9 elements. 
43> 3.6 50 8 


program ... data input 


(A) 
{S$ program ... execute 

program ... re-display of results of computations 
[ Operation ] CLOADYAI VY ([EntER! 


[Bisplay [Note [| Input 
ORDER ? | (ay) 1 [ENTER] ? 
| (az) 5 (ENTE 


=serm[? 


2 
? 
a3) —12[ENTER]} > 


(Ex. 1) Jeet te 
Ss, 


a 





e a: EATEN) 


EJ) 


oN 
S 
& 
Gal 
= 





= 
= 


ill 


| 


Execute 











1.571428571 
2 —4.904761907 
NTER)| 8 —3.650793657 


(o) 





mH 








rar ery 
oj™ 
mH 
= 


YD] OPEN [ow 





nn and 


* PROGRAM NO. 
Title SIMULTANEOUS EQUATIONS yee 
0 


TAT» 
fel» 
fe f[ ates 


p 


or input 


iii 


ag 
< 


— 
slale(sislitisisislslalalslelsl=lslel=[~lo[ale| 


D | 
E | 
LF 
|G 
/H | 
a 
pK 
/M 
UN 
|O. 
|p 
Ky 
Ri 
|S 
Ui 
Vi 
|W | 
x 
Ea 
za 
a 
= 
eal 
= 
a 
La 


1 


2 "A™SINPUT “ORDER ?”;A 


: GOSUB 600 

: B=A:END 

: "S":GOSUB 570 

: D=ACK) :1F D<>OGOTO 160 


FOR G=1T0 B~1 


: GOSUB 500 

: D=AC(C):1F D<>QGOTO 110 

: NEXT G 

: PRINT “NO SOLUTION”: END 


FOR H=1TO B-1 


: GOSUB 520 

: ACK) =ACK) +ACC) 2 NEXT H 
: GOSUB 540 

> ACK) =ACK) +A(C) 


FOR G=1T0 B-1 


: GOSUB 500 

: E=A(C)/D:FOR H=1T0 B-1 
: GOSUB 520 

2 ACC) =ACC)-EXACK) NEXT H 
: GOSUB 540 

: ACC) =ACC)—-E*xACK) tNEXT G 
: B=B-1:IF 8>1GOTO 40 

: FOR B=1TO A-1 

: GOSUB 570 

: ACCY=ACC)/ACK) sE=ACC) 

: FOR G=8+1TO A 

: GOSUB 550 

: ACC) =ACC)-E*ACK) 

: NEXT G:NEXT B 

: B=A:GOSUB 570 

> ACC) =ACC)/ ACK) 

: "B!'tFOR G=1TO A 

: GOSUB 550 

: I=ACC) 


: PRINT USING "####"7G7" 


"7USING 71 


: NEXT G 

: END 

> K=AXBt+B+11:C=A*G+B+11 
: RETURN 


S20: 
530: 
540: 
550: 
560: 
570: 
600: 
610: 
620: 
630: 
640: 
650: 
560: 
670: 


K=AXB+H+11:C=A*xG+H+11 
RETURN 
K=B+11:C=G+11:RETURN 
C=G6+11:K=A*G+B+11 
RETURN 
C=B+11:K=A*B+C: RETURN 
C=12:K=A+12 

FOR G=1TO A 

FOR H=1TO A 

PAUSE USING "“###H#"7Ge7H:INPUT I 
ACK) =I :K=K+1:NEXT H 
BEEP 1:INPUT I 

ACC) =1:C=C+1:NEXT G 
RETURN 


691 
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¢ PROGRAM NO. 
Title INVERSE MATRIX 


[ Formula ] 
This program determines an inverse matrix by sweeping-out method. 
A matrix is given: A ={a,;;} (2, f=1I~n) 
@,;,=a;j;+1 Ci=l~n) 
P=Amm—1 (m=i1~n) 
@ mj =2 mg “DP (j=1~n) 
(i=l~n, ixm) 


237-2 ijg—@im mj 


@ig=azz—1 Ci=1l~n) 


As a result of computations above, [a,;] is changed to an inverse matrix of the original 
matrix. 


[ Example ] 


When n memories: 
Possible up to./n —9 elements 


Possible up to 11 elements. 


(A] program ... 
(S) program ... 
(F) program ... 


[ Operation ] 





data input 
execute 
correction of data 


CLOAD YA2Y 


sy Simca 
Es 





ii = 











pS |e [ea | | 


operation 
SHFT s 










PROGRAM NO. 
Title INVERSE MATRIX eee. NOERSE MATRON NN 


| Memory content | | content 









































10: “A™sINPUT “ORDER ?”;A 

20: I=10:FOR E=1TO A 

30: FOR F=1TO A 

40: PAUSE USING "####";7 EF: INPUT G 
50: ACI)=G:I=1+1 

60: NEXT FeNEXT E 

70: END 

80: "S"sFOR B=1TO A 

90: GOSUB 500 

100: ACH) =ACH) +1 










For input 

110: NEXT B 
Address 120: GOSUB 500 
Address Peal aha roel 





140: IF D=OLET PRINT "NO SOLUTIONS END 

150: GOSUB 600 

160: B=B-1 

170: IF B>QGOTO 120 

180: FOR B=1TO A 

190: GOSUS 500 

200: ACH) =ACH)-1:NEXT B:sBEEP 3 

210: "B':I=10:FOR E=1TO A 

220: FOR F=1T0O A 

230: PRINT USING “#H#HR™FEZFFUSING “HHHHHH HT! 
HH"; ACT) 

240: I=I+1 

250: NEXT FsNEXT E 

260: END 

270: "F':PAUSE“CORRECT’: INPUT "I= "ZEs INPUT 
"J= "ZFLINPUT G 

280: GOSUB 510 

290: ACI)=G:G0TO 270 

500: C=B8:GOTO 520 

510: C=F 

520: C=C-At9 ! 

530: H=A*Bt+C 2 I=AxE+C 

540: RETURN 

600: FOR F=1TO A 

610: GOSUB 510 

620: ACH) =ACH)/D:NEXT F 

630: FOR E=1TO A 

640: IF B=EGOTO 690 

650: GOSUB 500 

660: D=ACI):FOR F=1TO A 

670: GOSUB 516 

620: ACID =ACI)-D¥ACH) 2NEXT F 

690: NEXT E:RETURN 













HINT 
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| PROGRAM NO. 
Title DETERMINANT 


[ Formula ] 


This program transforms a matrix into a triangular matrix by sweeping-out method, and 
computes the determinant. 


A matrix is given: {a;;} (2, 7=1~7) 
p=amm (m=2~n) 
q=aim/p (i=1~m-1) 
@ij=aij—qramj (j=|~m) 


Thus calculating, with respect to the element of i<j, we obtain 


ay = 0 


Hence, det =ay° ayn* ay3¢ 
[ Example ] 
(Ex. 1) (Ex. 2) 
2 8 
5 68 


(Note) 

Max. 10 elements 
program ... data input 
(S) program ... execute 
(F] program ... correction of data 


[ Operation ] CLOADY A3Y (ENTER 


























PROGRAM NO. 
Title DETERMINANT PANS: JDEMERMINANT oo ooo er, 


| Memory content [| | content 


apy 
sit 
cies 
pil 
els] 
GO 
eh] a 
COs 


Address 


For decision 















70: “A'sINPUT "ORDER ? "7A 
20: K=0:GOSUB 600 
30: END 
40: "S":USING :B5=A:E=1 
50: GOSUE 500 
60:3 D=ACI) :IF D=OGOSUS 700 
7Q: IF K=4LET E€=0:GOTO 10° 
SO: E=D*eE:GOSUS S06 
90: B=Be-1:IF 8>1G0TO 58 
190: E=E*SPRINT "DET"-E:END 
1G: “F'IPAUSE "CGRRECT'SINPUT "I= "“;Fe,"J= " 
icpu 
GOSUS 519 
: ACJ)=SH:IGOTO 116 
2 C=ea:50TO 520 
C=G 
C=CHAti2 
T=AkB+C 3 J=AX FAC SRETURY 
J=13:FOR F=1TO AzFGR G=1TO A 
PAUSE USING "###";FeG2INPUT H 
ACJ) =HeJ=J4+72NEXT GiNEXT FrRETURN 
OR F=1TO 5-7:GOSUE 500 
=ACJ) :1F D<>GGOTO 730 
{EXT Frk=1:RETURN 
FOR G=1TO S:60SUE S14 
ACI) =ACID +405) NEXT GIROTURN 
FOR F=1TO B-1:GOSUB 50° 
QO: LEACJ)/DIFGR GaiTO 5-1:50SUS 572 
coed: ACJ=ACJ)-L*ACI) tMEXT GENEXT FIRETURN 
456 
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SHARP 


. PROGRAM NO. 
Title PRODUCT OF MATRICES 


[ Formula ] 


This program computes the product C (mn type) of an ml type matrix A and an In type 
matrix B. 


1 Qe" ae 


Cig 3 Giz bkj 
k=1 


[ Example ] 


mé+én+mn<144 


[ Operation ] CLOADY A4 Y (ENTER) 


rout [Display | nate | 


ae Oren 


Hl 
lie 


3 

ao 
w 
m 
= 
= 
m 
= 


| 


os 

R Ls 
we 1 
m | OS 
ae| |)ae 
= i 
mal [jen 
wo} ||s0 


eee ee) See 
(ar ae 
2 eae 


o 


i 


“smal? 


8 
fa} 
NS 











fSsteole[~[e-[=J=[el=[-| | 
& 
ro 
~ 
| IE 
ml jim 
53] |[55 


amp) 5 








[Memory content | | content 






10: 
20: 
30: 
40: 
50: 
60: 
70: 
80: 
90: 
100: 
110: 
120: 
130: 
140: 
150: 
160: 
170: 
180: 
190: 
200: 
210: 
220: 
230: 
240: 
250: 






















After input data 













wd 






260: 
500: 
510: 








il 


Title PRODUCT OF MATRICES 


"A™ CLEAR 


INPUT “M= "ZA/"L= “ZBo"N= "3C 


FOR F=1T0 A 

FOR G=1TO B 

60SsuUB 500 

=Be ( F-4) +6+10 

ACE) =) 

NEXT GeNEXT F 

FOR F=1TO B 

FOR G=1T0 C 

GOSuUB 500 

E=Cx( F-71)4+G+A%B4+10 
ACE) =D:NEXT G:NEXT F 
FOR F=1TO A 

FOR G=1T0 ¢ 

E=C* (F-7)+G+B% (A+C) +10 
FOR H=1T0 B 

T=Be (F=7) +H+10 

J=C% (H-1) +G+A%B4+10 
ACE) =A(CE) ACI) & ACJ) 
NEXT HeNEXT G:NEXT F 
I=I-2:FOR F=1TO A 
FOR G=1TO C 


=C« ( F~1) +G+Be (A+C) +10 SH=ACE) 
PRINT USING “####"FFSGZUSING NHEEMHH 
HH" SH 


NEXT G:NEXT F:END 


PAUSE USING “####";F;7G:INPUT D 


RETURN 


398 











SHARP 


Title MUTUAL CONVERSION, AND ADDITION AND SUBTRACTION PROGRAM NO. 
BETWEEN DECIMAL NOTATION AND OTHER NOTATION P4-A-5 


| Formula ] 


Mutual conversion, and addition and subtraction between decimal notation and p-based 
notation. 


Program A: conversion from p-based notation into decimal notation 

Program B: conversion from decimal notation into p-based notation 

Program C: addition in p-based notation 

Program X: subtraction in p-based notation 

Program M: _ setting of p, and clearing of memory for acumulative total of addition 
and subtraction 


[| Example ] 


When p is 7 (Decimal numerals are enclosed in parentheses): 
(1) 12>9 10), 20> 14 (10) (all heptal numerals, except 9, 14) 
(2) 12+20+ 156-23 > 165 
(NOTES) 1. When performing addition or subtraction, first set the value of p (operation 
of program(M). 
2. When the base is larger than 10, the display is given in two digits each. 


3. Maximum 7 digits can be computed in up to decimal notation, and 5 digits 
in undecimal and higher notations. 


When performing addition or subtraction, refer to the example of operation 
below. 


[ Operation ] CLOAD VAS [ENTE 


+ 


Display 


g 
* 


DATA= 


DATA= 


| @) 


—_ 
bo 
canal 
= 
= 
a 
a 


il 


faa] 
== 
= 
m 
ae 


q 12 
DATA= 
(ENTER) 7 221 
q 165 


m™) | (em 
ze | fla 
sila 
miliirs 
sj) | 


Ste l=l=]= TT 
HE 











Title MUTUAL CONVERSION, AND ADDITION AND SUBTRACTION | PROGRAM NO. 
BETWEEN DECIMAL NOTATION AND OTHER NOTATION P4—A-5 
Memory content 


FAlifvy 
V/ 
tne aa 1: GOSUB S:BEEP 3:PRINT USING "##A#HHBH" SI 
fc[3} vy | ze TURN 
Ipia4f vo : A=B:D=I:sE=J sRETURN 
> INPUT "DATA= "ZA 
Pee ah 
Fl] ee 
: FEA:ASINT (F/D) 
G7] Answer | : FEF-AeDIG=INT (EAC+.5) *FtG2C=C41 
EE a ae 
>: RETURN 
: "A" SPAUSE USING "#####"z13" TO 10" 
: GOSUB 3 
> GOSUB 1 
: GOTO 10 
: "B"sPAUSE " 10 TO "“ZUSING "HAH" SI 
: GOSUB 3 
: D=Is:E=J:GOSUB 1 
: GOTO 50 
: "C"SPAUSE USING “#H#HH#"sI3" 4" 
GOSUB 3 
GOSUB 5 
B=B+G:GOSUB 2 
GOSUB 1 
GOTO 90 
: "X"sPAUSE USING "H###H#"717"  -" 
: GOSUB 3:GOSUB 5 
: B=B-G:GOSUB 2 
: GOSUB 1:G0TO 150 
190: “M":B=O:INPUT “BASE 2”: 1 
200: IF 10>=ILET J=10:K=10:END 
210: J=100:K=5:END 
398 
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SHARP ‘ 





Title MUTUAL CONVERSION BETWEEN RECTANGULAR PROGRAM Nt 
COORDINATES AND POLAR COORDINATES P4—A~-6 
{ Formula ] 


Rectangular coordinates and polar coordinates are mutually converted in two- and three- 
dimensional space. 


When angle designation is DEG, inputs and outputs are made in DEG, when RAD is 
designated, in RAD. 


Two-dimensional space: 
o Rectangular coordinates to polar Whenx =y=0, r=0: 6 = undecided 


raV/x? ty? 
When y >0, 6 = cos"! (x/r) 
When y <0, @ = —cos™! (x/r) 


o Polar coordinates to rectangular 
x =rcos@ 
y =rsin @ 

Three-dimensional space: 

o Rectangular coordinates to polar 


When r=V x? ty? +2?,x=y=z=0, 


r=0: 6, ¢: undecided 
6 = sin7! (z/r) 
When x > 0, 
y = tan7? (y/x) 
When x = 0, 
If y>0, p=90° 
If y <0, y= —90° 
When x <0, 
If y>0, y= tan? (y/x) + 180° 
If y <0, y= tan7!(y/x) — 180° 





y 




















Display Note I Input Display Note 


-_ 
~ 





2 

| 

5 
ZAIN <|*« 
ef dey uy dl 


Xe 
we 
iw) 
faa] 
= 
m 
= 


oN 
N 
we 
Oo 
Foal 
= 
i 
m 
= 


3.741657387 
ENTER THETA=—-58.80077479 


werk} PHI=-. = 116.5650512 


fsfele[=feofe[=[e[e[=] 


Title MUTUAL CONVERSION BETWEEN RECTANGULAR PROGRAM NO, 
COORDINATES AND POLAR COORDINATES P4—A—6 
o Polar coordinates to rectangular 
x=rcos 4 cos 


y=rcos @ sin g 


z=rsin @ 


(A) program ... two-dimensional, rectangular to polar 
program ... two-dimensional, polar to rectangular 
program ... three-dimensional, rectangular to polar 
(D) program ... three-dimensional, polar to rectangular 


[ Operation ] CLOAD YA6Y 
The examples refer to the case of DEG designation. 


input | Display | Note | | ipst 


[S| e(= [sie] «eed spay 





Titl MUTUAL CONVERSION BETWEEN RECTANGULAR PROGRAM NO. 
tle COORDINATES AND POLAR COORDINATES P4—A--6 


Memory content 


10: “A":GOSUB 500 
20: R=/CX*X+Y*Y) 
30: IF R=OPRINT “R=0 THETA, PHI= ?”: END 
40: GOSUB 700 
50: C=ACS (X/R)*A 
60: PRINT R-C:END 
70: “B"sGOSUB 600:Y=R*SIN C 
80: PRINT X,Y:END 
90: “"C":GOSUB 500 
100: INPUT "Z= "“7Z 
110: R=/CX*X+Y*xY+Z*Z) 
120: IF R=GGOTO 30 
130: C=ASN (Z/R) 
140: IF X>OLET F=ATN CY/X):GOTO 180 
150: GOSUB 700 
160: IF X=OLET F=A*xACS O:GOTO 180 
170: F=ATN CY/X)+A*ACS ~1 
180: PRINT "R=",R:PRINT "THETA="",C:PRINT “PH 
I="",F 
190: END 
200: "D":GOSUB 600 
210: INPUT “PHI= "7F 
220: X=X*COS FSY=Y*SIN FtZ=R*SIN C 
230: PRINT "X="/X:PRINT "Y=",Y:PRINT "Z='',Z 
240: END 
500: INPUT "X= “ZX,""¥= "ZY 
510: USING :RETURN 
600: INPUT "R= "2Re-"THETA= "7C 
61G: USING :X=R*COS C:Y=R*COS C:RETURN 
700: A=CY=0)4+SGN Y:RETURN 
432 
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SHARP 


Title ROOT DETERMINING CALCULATION ACCORDING PROGRAM NO. 
TO NEWTON’S METHOD P4~A—7 


[ Formula ] 


Determine a root of a function according to Newton’s method. 

f (xn) 

f'(xn) 

When the absolute value of the difference 
between x, and x,4, becomes less than 
10-8, x, is regarded as a root, and 
computation is terminated. 


y Xatl] = Xn— 


Here, f'(x) of linear differential is defined 
as follows: 


f(xt+th)—flx) 


; (h: minor section) 


f (x)= 


When changing 107®, vary E-8 in line 60. 
[ Example ] 
w—2x'—xt+2=0 If error message is displayed in the process of 
Shae. Ses operation, change xo, h, and retry. 
> 07 
h=10* 


\ then, x = 2 


Write the function, as subroutine, after line 500. 
Method of writing (in the case of example above): 
Set to PRO mode (by pressing proper [MOIE) key). 
500B=( (X—2)*X~1)*X+2 
510RETURN (ENTER) This ends writing. 


Next, change to DEF mode, and execute. 


[ Operation ] CLOAD YA7 © (ENTER) 





Titl ROOT DETERMINING CALCULATION ACCORDING | PROGRAM No. 
tie TO NEWTON’S METHOD P4-A—7 


Memory content 
Pa | 
eile 


— 
=~ 


in 
0 
P| 
a 
& 
U 
Vv 
Ws 
x 
Zz 
= 
i 
z 
id 
Ea 
[IS 


“A fo& 
& 


. A" CINPUT "yo= "3C,"H= "OA 
: X=C:GOSUB 500 

: Y=B:X=A+C 

: GOSUB 500 

: D=C:C=D-Ax*xY/(B-Y) 

: IF ABS (D-C)>=E-8G0TO 20 

: BEEP 3:PRINT “ANS."AC 

: END 

2 B=C(X=2) *X-1) *X+2 

: RETURN 


Function (An example containing the following) 
f(z)= CC x—-2 Dx-1) xt+2 
= 29-2 %?-x4+2 





SHARP 


Title QUADRATIC EQUATION 


[ Formula ] 


PROGRAM NO. 
P4-A-8 













Determine the roots of a quadratic equation ax* + bx +c=0 (a#0). 


_ a~btwb*~-4ac 


2a 





x 





1) When b?—4ac > 0, the roots are 3) When b?—4ac <0, the roots are 
real roots: imaginary roots: 












_ abt bi 4ac_ Rear part: —b 
a 2a 2a 







V4ac~—b? 
2a 





2) When b?—4ac = 0, the roots are Imaginary part: 
equal roots: 









[ Example ] 
(1) 42°—x-1=0 Two real roots: x = 0.64 +, —0.39 «+ 





(2) 52+4x+1=0 Imaginary roots: real part, —0.4; imaginary part, 0.2 





(NOTE) In the case of two real roots, REAL and x,,x» are printed. 
In the case of equal root, EQUAL and x, are printed. 
In the case of imaginary roots, **REAL**, IMAGINARY , and 
real part and imaginary part are printed. 











CLOAD Y A8~ (ENTER) 





[ Operation ] 























REAL 6.40388 E -01 
REAL —3.90388 E-01 














































PROGRAM NO. 
Title QUADRATIC EQUATION ee ee et ee ee A-8 


apt. 

















102 "A™SINPUT "A= "ZAs"B= "7Be"C= "FC 
20: B==B/2/A 
30: D=B*xB-C/A 
40: IF D=0GOTO 100 
50: IF D>OGOTO 120 
60: Y=A-D) 
7O: PRINT “*x*REAL**",B 
80: PRINT "IMAGINARY", Y 
90: END 
190: PRINT “EQUAL”, B 
110: END 
120: PRINT "REAL",B+/D 
130: PRINT “REAL /B-JD 
: END 





—_ 
lslaleleisle(slelel(slalalslelsislslelo[~lolala=lol[s| 
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SHARP 


Title EQUATION OF THIRD DEGREE 


[ Formula ] 


PROGRAM NO. 
P4-A-9 











This program solves a cubic equation by Cardan’s solution. 





Ax®+Bx?+Cx+D=0 (where AO, each coefficient being a real number.) 






The following equation is obtained by dividing every coefficient by A. 
Stax*+bxtc=0 








If the second order term is eliminated by the conversion x = y — a : 







y +8 pyt+ q=0 
hoe ~-— 284 22° 
Pag. ae ee 









If y islet toequal u+v, the above equation y? +3py+q=0 — is: 
ub+ v3+8uv(utv)+8pCutv)+q=0 





Here, if uw? + v® islet to equal —g, uv=—p. 
ue+ vi=—q 
y= p 


This reveals that u> and v® are the roots of the quadratic equation ¢? + gt— p® =0. 












That is to say, 


w= (9+ VE 


v= 5 (9 VE 









Hence, the roots of the equation y? + 3py+q=0, a, B, and 7, are as follows: 





a=utv 


~( wv Cu-—v) 





SHARP 


. PRO oO. 
Title | EQUATION OF THIRD DEGREE cyanate 


he V8. 
T= g (utv) gq itu v) 
The equation above is divided into the real part and the imaginary part. 


1 If q?+4p?>0 
Since u> and v*® are real numbers, u and v are supposed to take the real cubic 
roots of u? and v°, and the equation above may be used directly. This is the 
case of one real root and two imaginary roots. 
IDIf g? + 4p? <0, u?® and v® yield imaginary roots. 
Suppose u? = re’? 
v= re 16 
r= /-—p 
/— g?@—A p? 


~@ 


6 = tan” 
Then, 
LL 
u = /—p(cos or isin; ) 


v = V=Foos 4+ i sine ) 


Accordingly, the foots a, 8, Y of y?+3py+q=0 are: 





= —.: xz @ 
a 2v—p sin( 5 3 


) 





B=—2V—  sin( i 





) 





) 
6 
3 
gd 
3 


r 2v—p sin( F 


These roots are all different real numbers. 























SHARP 


Title EQUATION OF THIRD DEGREE 


IID) If g2+4p? =0 and p#0, then u? =v? = Be 


Hence, u=v= 3 


So, a@=2u 
a teams 
The roots are equal roots and a different real root. 
IV) If qg27+4p? =0 and p=0, then g=0. From u=v=0, we obtain 
a=f~=7=0. 


This is the case of triple roots. 


Finally, by adding = to a, 8, Y, respectively, the solutions of the original 
equation may be obtained. 


Meanwhile, two different roots (or three roots) which are very close to each 
other may be judged as equal roots. Or, a reverse case to this may be also 
considered. 


[ Operation ] CLOADY A9Y 


[meet [ovis [vote [amt [piney [ote 





‘s PROGRAM NO. 
Title EQUATION OF THIRD DEGREE 


Memory content 


bl 2 
Bjajv 









10: “ANSINPUT “A= "2De,"B= "FF e"C= "2Gr"D= " 
7H 
20: FOR E=6T0 8 
30: ACED=ACE)/DINEXT E 
40: F=F/3 
SQ: D=G/3-Fx*xF 
60: E=H-FeGt2e Fe FF 
70: C=4eDeDRD+EKE 
80: IF £E-8>ABS CGOTO 270 
90: IF C>GGOTO 200 
100: A=2*T(~p) 
110: B=ACS CE/C2xDeT(-D0))) /3 
120: D=ASN 1:E=ASN .5 
130: G=A*SIN (D-B) :H=<A*SIN CE+B) 
140: Is-A*xSIN (E~B) 
150: FOR C=7T0 9 
760: ACC)=ACCI-FINEXT C 
170: BEEP 3sPRINT "REAL ROOT',ZG 
780: PRINT H-I 
190: END 
200: C=hCrA=.5*(C-£) :B=- Se (C+E) 3C=1/3 
210: A=ABS A*C*SGN A 
220: B=ABS BAC*SGN B:C=.5*F3 
230: BEEP 3:PRINT "*REAL ROOT*',A+BqF 
240: PRINT "*REALK",-—.5% CA+B)-F 
250: PRINT "IMAGINARY" sC*ABS CAB) 
260: END 
e7G: BEEP S:1IF E-S>ABS, DPRINT “TRIPPLE's-F: 
END 
260: As-ABS (.5*ED*C1/35)*SGN E 
290: PRINT "REAL ROOT" -2*A~F 
300; PRINT "EQUAL ROOT",-A-F 
370: END 
530 









OR sentence 























lslelslslalslelslalslel=(-l/elel=[+| 





|Aja{n/o|slo/z/e/F [s/c |-[z/o[=[ mola 
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SHARP 


Title EQUATION OF FOURTH DEGREE 


[ Formula ] 
This program solves an equation of fourth degree by using Ferrari’s theorem. 
Given Ax*+Bx?+Cx?+Dx+E=0 
Dividing each term by A yields 
xéta, tax t+a,xta,= 0 
Suppose x =y — oe. then it follows 
ytt ky? +eytm=0 
Coefficients k, J, m are 
k= Sa + a2 


1 
4 = Zak Sa az + as 


8 


1 
TT a3 +a, 


1 
apg 2 + 7g ee 7 


16 


Attempt to reqrite the equation of fourth degree in terms of y, y* + ky? +ly +m, 
in the form of difference of squares, for instance, 


C+ a vy)” sere ese senses cencee cee tes ces cesar eee ceeeee(D) 
This expression may be developed into 
2 
yitCu-v) ¥+2uwyt ( pew) 


Comparing this with the equation above, we obtain 


if 
v=k, 2ow=f, 7 vw?= m 








Hence, v=u—k is obtained from the first equation, and w = 1/(2(u — k)) from the 
second equation. Substitution into the third equation yields 














Real 1 
part ee 





; PROGRAM NO. 
Title EQUATION OF FOURTH DEGREE 


m 








Ea ky. 





By rearranging this, an equation of third degree in terms of u may be obtained as 
follows: 







u>— ku?—Amut+(4km—7) =0 


Regarding wu as one roof of this equation, it is substituted in eq. (1) and supposed as 0. 
That is, by solving 






Cafe yt 5-vo w) C¥—Vo ytatve wi= 0 










2 = ee = 
P+Vu-k ytCo fe 0 









u g = 
POV It See oO 








x will be determined. 






[ Example ] 






x'— 98 —32x?+474+2=0 





Answer: 2, 1, —l, —1 






[ Operation ] CLOAD VA 10V (ENTER) 





Input 









jelele|~joleTate| 





‘ PROGRAM NO. 
Title EQUATION OF FOURTH DEGREE 


Memory content 



















10: “A"SINPUT "A= "ZX/"B= "7G,"C= "ZH,-"D= " 
tI-“ES "3 

20: FOR Y=7T0 10 

30: ACY)=ACY)/X:NEXT Y 

40: G=G/4:F=G*G 

SQ: J=de( FeH-3* Fe F-GeI+J) 

60: I=8*F*xG-2*G*H+1 

70: H=CH-6*F) /3 

80: A=3*xHxJ-I*I 

90: B=~J/3-H*H 

100: C=A-H*J-2*H*H*H 

110: Y=4*BxB*xB+CxC 

120: IF Y>=0GOTO 160 

130: Y=ACS (C/(2*B*/(-B) ))/3 
140: X=2*f/(-B)*SIN CASN 1-Y) +H 
150: GOTO 180 

160: Y=/Y¥:A=.5*(Y-C) :B=.5*(-C-Y) 
170: X=ABS AS(1/3)*SGN AtABS BA(1/3)*SGN BtH 
180: Y=3*H:A=-X-Y 

190: F=JABS (X=Y) 
200: B=2eI/F:C=F/2 

210: IF Y>XGOTO 349 

220: K=0 

230: X=C-G:Y=(A=-B) /4 

24C: IF Y>=OGOTO 300 

250: Y=/ABS Y 

260: BEEP 3:PRINT X-Y 

270: PRINT Xe-Y 

280: IF K=1END 

290: K=1:8=-B:C=-C:GOTO 230 
300: BEEP 3:Y=/Y:PRINT C+Y-G,0 
310: PRINT C-Y-G,0 

320: IF K=1END 
330: GOTO 290 

340: B=/CA*A+B*B) 

350: X=/C.5*CAtB))/2 

360: Y=JC.5*(B-A))/2 

370: BEEP 3:1F I>=GGOTO 430 
38C: PRINT X-G,C-Y 

399: PRINT X-G,Y-C 

400: PRINT -X-G-C+Y 

410: PRINT -X-G--C-Y 

42C: END 

430: PRINT X-G-C+Y 

440: PRINT X~G,-C-Y 

450: PRINT -X-G,C-Y 

460: PRINT -X-G,Y-C 

470: END 

684 
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SHARP 


Title APPROXIMATE DEFINITE INTEGRAL BY 
SIMPSON’S METHOD 


[ Formula ] 


Compute a definite integral by using Simpson’s rule. 


h 
S = flx)d x= 3 yo + yep) +40 wt yet 
0 


+2 Cyt yt +Y2p-2) J 


h= Arp te? p: number of divisions 
p 


{ Example ] 
y = 8-22? —-x4+2 


= ( (4-2) x-1) x42 


1 — 18 
fy ax = 75 


Write in the function, as subroutine, after line 500. 
How to write in (in the case of example above): 
Set to PRO mode (by pressing proper key). 


500 Y=( (x—-2)*x—-1)*x+2 [EE 
510 RETURN This ends writing. 


Next, change to DEF mode, and execute. 


[ Operation ] CLOADYA11Y [ENTER 


1c a 
See ee ee 
oa P= | 
(p) _ 2o(arn| ANS. 1osseeesa| | 
Cee Sam a 


PROGRAM NO. 
P4—-A-I11 















Title APPROXIMATE DEFINITE INTEGRAL BY 
SIMPSON’S METHOD P4—-A—11 

FAli] 2 
/Bl2| 2 
)C {3s 
Dis] x 
E|5) =» 
PO Pies asc Sel 
Ci 








10: “"A'sINPUT "XO= “7D/"X2P= "7E,"P= "eF 
20: B=(E-D)/2/F 

30: A=0:X=D:GOSUB 500 

40: A=Y+tA:sX=X+B:GOSUB 500 

50: A=Y*4+A:X=X+B:GOSUB 500 

60: A=Y+A:F=F~-1 

70: IF F<>OGOTO 40 



















C1 a 
90: BEEP 3:PRINT "ANS."-C 
crs) tte en 
500: Y=CCX-2)*X=-1)*X+2 






psf 
Ki 
ep 
|M 


> RETURN 












An example containing: 


y= ( (4-2) x-1) x+2 


= 8-24? —x42 
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wed 
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SHARP 


Title FIRST ORDER DIFFERENTIAL EQUATION 


[ Formula ] 


PROGRAM NO. 
p4—A~—12 


This program is to solve a first order differential equation according to Runge-Kutta-Gill 
method. 

The equation is y’ = f(x, y), anda the initial condition is (xo, yo). 

Taking the value of x at intervals of 4, 



















Xn=Xo+ nh (n=1,2, Seeinse 












the value of y at x,, namely y, | is obtained sequentially. 


The formula to obtain x,41;Vn+1 from X,, Yn is given as follows according to 
Runge-Kutta-Gill method. 








ko=hf (xn, yn) ri = (1/2) (Ro~2q0) 












y= on try 1 =Got+8r1—(1/2) ko ki =hf (xath2, yi) 
r= (1-W12) (kia) 

y= (47, @=nt8re—I-Vi2) ky kp = Af (xn th/2, y(?)) 
rs=(1+W1/2) (ke — 42) 

y(3)= (2) +75 gs =G2t+8rs—C1t+W 2) kp hs = hf Cnt, (3) 







re= (1/6) (h3—2 93) 
q=qat8re—C1l/2) ks 






ynti= yl8) +75 


Thus, yy4 1 is determined from y,. 
Here, 1 = 0, 1, 2, «+++ 


The value of go is Oat start point x9,and g4 is taken asnew qo thereafter. 







* As for the function, refer to the Programming list. 





[ Example ] 









Equation y’ = —xy is solved, under the initial condition of x9 =0, provided yo = 10. 


However, suppose h = 0.01, and y is obtained when x = 0.01, 0.02, --- 
[ Operation ] CLOAD YA12V 


a 
aa a a 
Gow ve= «did 
im] H= 
EO Some 













wa 


10 
(A) 0.011 


0.01 9.999500012 


0.02 9. 9980002 


Hy 
12 
ae iT 
aa 
fe =a 
ara} 8 _sssssoirs]_s 
ae 
leashed 
eae, 
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Title 


Memory content 
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Ei 
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ta 
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2d 
24 
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PR 
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x 
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fa 
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a 
a 
Ae 
z 


FIRST ORDER DIFFERENTIAL EQUATION 


s "AN SINPUT "XO= "7X-"YO= 
: A=14+/.5:B=1-f[.5:USING :Q=0 
: GOSUB 500 

: K=H*FsY=Y+(K=-2%Q) /2 

2 Q=Q4+3%((K-2%Q) /2)-K/2 
: X=X+H/2:GOSUB 500 

: K=H*F sY=Y+B* (K-Q) 

2: Q=Q+3%* (Bx (K-Q) )-BxK 

: GOSUB 500 

: K=H* Fs Y=Y+Ax (K~Q) 

: Q=Q+3% (Ae (K=Q) )-AxK 

: X=X+H/2:GOSUB 500 

: K=H*FsY=Y+(K-2*Q) /6 

2 Q=Q+3%* ((K=2*Q) /6)-K/2 
: BEEP 3:PRINT XY 

: GOTO 30 

2 F==X*Y 

: RETURN 


PROGRAM NO. 
P4-A-12 


"OY, "H= 


An example containing y’ = —xy (line 500) 


Write y',x, and y by using F memory, 
X memory, and Y memory, respectively. 


"7H 





SHARP 








Title MULTI-ELEMENT SIMULTANEOUS FIRST ORDER PROGRAM NO. 
DIFFERENTIAL EQUATIONS P4—A—13 












[ Formula ] 


This program solves multi-element simultaneous first order differential equations by using 
Runge-Kutta-Gill method. 


An n-th order differential equation is, when it is constituted as follows, 













t 


yy 










2 = yy 


Yn = yn-1! 






divided into n-element simultaneous first order differential equations. 





The multi-element simultaneous first order differential equations 






dy 
Se Tas ara Oe LO kG tame Wer canis ,m) 







are solved under the initial condition of 





X=Xo provided y;=yjo ((= 1, 2,---,m). 
Taking the value of x at intervals of , the value of y, at 






tn =Xotnh (n=1 ,2,00 


namely y;, is obtained sequentially. 
Suppose x is written as yo and considered to be an unknown function, we obtain 









dyo. 
dx 
Thus, 
BI py Se atee dCi =0 1,2 ase 
rr i (y¥, KN, > Im) (E=0,1,2, 0, m) 









issolved. (fo = 1) 
The formula to determine the value of y; at x =x, +1, namely, y;, n+ 1, from the 
value of y; at x =x,, namely, y;, n, is given as follows according to Runge-Kutta-Gill 


method. 

2 1.040813509 

elements) 2 
? 


itewabooreral 7 
(rd 


Ow) 1 
Q@) 1 
1 1.010100671} 9.” 
2 1.020201678} ye ” 
1 1.0204054 























Input Note | 
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SHARP 















Title MULTI-ELEMENT SIMULTANEOUS FIRST ORDER PROGRAM NO. 
DIFFERENTIAL EQUATIONS P4—A-18 









=hfilxn, yon, yin, wbiacs : 






(1/2) Ckio —2 aio) 







— Vintriy 






7 tak Oh aie 






kiy = Afi Cant = » wll), (1), vee » ym(l)) 






= (1-1/2) (ki, -@i1) 







yiN+ri2 
= gi, + Bring -CI-V 20 hig 
=hfi (yo (?) » nl 2), seeiwey, . 










Giz) 






vit+riz 






= giz t8riz —(C14+V1/2) kip 






= h fi Cy), trees 


(1/6) Ckis— 








2qi3) 







vi, nti= yil8)tr eq 







Gis = Gisat+8rig—(lLA) kis 


Thus, from y;, 1, the values of y;, 7 +1 are determined. 
Here, 1=0,1,2,---,m 


The value of gjo isall O at start point x9, and q;4 should be anew qjo 
thereafter. 


Display 















Input Note 


Input Display 
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SHARP 
Title MULTI-ELEMENT SIMULTANEOUS FIRST ORDER | PROGRAM No. 
DIFFERENTIAL EQUATIONS p4—A-18 


[ Example ] 


Solve py” — y'? — y? =0. 


The initial condition is x = 0. Suppose y=y’=1, y=y, and y, =y’, then it follows 


(x, nu, 92) =(0,1,1) 

x? 
—+y 
(Solution: y=e 7? ) 


Determine at every x = 0.1 at intervals of h = 0.01. 


{ Operation ] CLOAD Ya13¥ (EnTeR) 








Title MULTI-ELEMENT SIMULTANEOUS FIRST ORDER | PROGRAM No. 
DIFFERENTIAL EQUATIONS BAAR 18 


. Memory content 


Write in the function, as subroutine, after line 900. 

The method of writing is the same as in the case of approximate 
definite integral by Simpson’s method. . 

The comparative table with the memory is specified below. 
In the case of two-element simultaneous equations, use 


Xo—I memory 

y1—J memory 

y2—K memory 
bg 

y, —L memory 

y2'—-M memory 

qi1—N memory 


42—O memory 


Je lolol ~lolal a [elo] | 


In the case of three- or four-element simultaneous equations, 
shift the memories to be used. 
Three-element equations: 
Xo—J memory After Z memory comes A(27) 
memory. 
y,—J memory 
y2—-K memory 
y3—L memory 
y,'—M memory 
t 
y2—N memory 
Ps 
y3 —O memory 
qi--P memory 
q2—Q memory 


q3—R memory 


The PC-1211 can solve up to 40-element simultaneous 
ordinary differential equation of first order. 


pA 
5 
BD 
Ee 
ai 
|G 
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pK 
/M 
LN 
Ee, 
pp 
KJ 
Ro 
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UL 
Ww 
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Title MULTI-ELEMENT SIMULTANEOUS FIRST ORDER | PROGRAM NO. 
DIFFERENTIAL EQUATIONS P4—A—18 










Memory content 


i ker 
[B[2| iniewath | 
es 
Pe 
ae 
JF [6] Noofetements | 
Ct re 





10: “A'SCLEAR :USING 
20: INPUT “ORDER= ";Fe"INTERVAL= “7B 
30: C=F 

40: FOR A=9TO C+9 

50: INPUT ACA) 

60: NEXT A 

70: GOSUB 500 

80: FOR A=9TO C+9 

90: BEEP 3ePRINT A-9-ACA) 
100: NEXT A:GOTO 70 
110: END 

S00: GosuB 900 

510: FOR A=10TO C+9 
520: GOSuUB 800 

530: H=G/2-ACD) 

540: ACA) =ACA) +H 

SSO: ACD) =ACD) +3*H~ .5%6 
560: NEXT A 

570: I=1I+B/2:G0SUB 900 
580: FOR A=10TO C+9 
590: GOSUB 806 
600: H=(G-ACD))*(7-".5) 
610: ACA) =ACA) +H 

620: ACD) =ACD)4+3*H~(1-".5)*G 
630: NEXT A 

640: GOSUB 900 

650: FOR A=1GTO C+9 
660: GOSUB 800 

670: H=(G~ACD))* (74725) 
680: ACA)=ACA) +H 

690: ACD) =ACD)+3%*H=Ge (147.5) 
700: NEXT A 

710: I=I+B/2 

720: GOSUS 900 

730: FOR A=1GTO C+9 
740: GOSUB 800 

750: H=(G-2*A(D))/6 
760: ACA) =ACA) +H 

7702 ACD) =ACD) +35*H-G/2 
780: NEXT AsRETURN 

800: D=A+C:G=BeA(D) 
BiG: D=D+CsRETURN 

900: L=K:M=Le*L/ J+J 

910: RETURN 

528 
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SPSS TSS Stats tstatatete lela tst=l= 



















An example containing: 
V1 = Ye 
ye = WV tn (line 900) 








SHARP 
i PROGRAM NO. 
Title EIGENVALUE 


[ Formula ] 





Set up a characteristic equation according to Danilevski’s method, and solve the equation 
by using Hitchcock’s method to determine the eigenvalue. 





A matrix is given as A = [a,;] (here, A is ann-element square matrix.) 





Deform the matrix, first supposing m= 1, m’=mt1. 
Matrix T= [ty], and T~'=[t';] are set up as follows. --------- 








Cixm') 





When j #7’, 









tiy = ti; =0 (is 7) 






= ti; =1 





bij 








Thus, the matrix is deformed from TAT~! into A. 


If m' #n, m+1 ischanged to m, and m’+1 to m’, thus returning to eq. (1). 





If m'=n, the deformation is terminated. 





Now, matrix A is deformed as follows, except for the final row: 










(i & 7+1) 
(i = j+1) 





aij =0 












aij =1 





From the final row, the coefficient [r;] may be determined as follows. 


[ieest [Display | Note [[ rout | Dieplay | Note 
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= 
foal 
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89. 40408949 0 
—49. 70138121 0 
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SHARP 


. l PROGRAM NO. 
Title EIGENVALUE ea 


ric=—akn (kR=n-t+1) 
Asa result, the following equation is obtained as the characteristic equation. 
Antria& t+rn-1Atrn =0 
Thus is obtained a characteristic equation, which is solved by using Hitchcock’e method. 
{ Example ] 


(Ex. 1) 38 —88 —21 76 


—27 54 86 —18 
71 21 85 15 
—18 65 -T4 46 


* The equation cannot be calculated when a,; is an imaginary number. 


Also, calculation is impossible when a,,,,' is 0. 
The characteristic equation may not always converge. 


Especially when the roots are equal roots, there is a possibility of failure in 
convergence. 


At every repetition, the state of convergence is displayed. 
As the displayed figures approaches 0, it is understood that convergence is near at end. 
Enables use in the range of 2<n<7. 


(Ex. 2) 
Answer: A,= 94.01042 


A,= —2.01042 


[ Operation ] CLOAD Ya14¥ (ENTER) 






























. PROGRAM NO. 
Title EIGENVALUE 


Memory content 






0] a |>| 
r= 


—_, 
fsiei[elpl[sl=(slelelslalalslslsl=l[slele|~lolealale[s| 





10: "A':CLEAR :sPAUSE “EIGEN VALUE" 
20: INPUT “ORDER '-C 
30: FOR G=1TO C 
40: FOR H=1TO C 
50: BEEP 1:PAUSE USING “#####";7G7HSINPUT I 
60: GOSUB 600 
70: ACK)=IZNEXT H:NEXT G 
80: USING :FOR E=1TO C-1 
90: H=E:FOR G=1TO C 
100: GOSUB 600 
110: ACL) =ACK) :NEXT G 
120: D=E+1:G=D:H=E:GOSUS 600 
130: F=ACK):FOR H=ETO C 
140: GOSUB 600 
150: ACK) =ACK)/FENEXT H 
160: FOR A=1TO C 
170: IF A=DGOTO 230 
180: G=AsH=E:GOSUB 600 
190: F=ACK):FOR H=ETO C 
200: G=A:GOSUS 600 
2106: J=K:G=D:GGSUB 600 
220: ACJ) =ACJI-FRACK) INEXT H 
230: NEXT A:FOR A=1TO C 
240: F=O:FOR H=1TO C 
250: G=A:GOSUB 600 
260: J=K:G=H:GOSUB 600 
270: F=FtACJ)*ACL) NEXT H 
280: G=A:H=D:GOSUB 600 
ACK) =FINEXT A:NEAT E 










































fat 


Lot: 
2 OULU 






G=1:G0SUB 60D 
350: E=1:M=C:GOSUB 500 

360: FOR E=1TO C 

370: ACF) SACL) 2FSF4tTsLeLt1:NExT £E 
380: A=G:3=C 

390: IF 2>=CGOTO 450 

400: GOSUE &00 













Pt ttt | TL IN| <[x/=]<[e]4[o) 2/0] /0])2/2]/r[>]¢|-|z[o] "| mo 


z PROGRAM NO. 
Title EIGENVALUE 


Memory content 


0 
CE 
Cjsp 
















410: IF CABS F>=E-4)+CABS G>=E-4)<>QLET A=At 
F:B=B+G:PAUSE F-G:GOTO 406 

420: GOSUB 900 

430: FOR E€=1TO C-2:G0OSUB 500 

440: ACF) =ACI) :NEXT E:C=E:GOTO 380 

450: €=1:G0Su8 500 

460: ASACF)21F C=1BEEP 3:PRINT -A-O:END 

470: E=2:GOSUB 500 

480: B=ACF) :GOSU8 900 

490: END 

500: G=E+13 :H=G+1 2 F=M+Ht+1 

510: I=H+1:RETURN 

600: L=G+15 :K=15+C*xG+H 

610: RETURN 

700: GOSUB 500 

710: ACI) =ACF) Ax ACH) ~BRACG) RETURN 

800: E=1:GOSUB 500 

610: ACG) =O0:J=0:K=12ACH) =1 

820: GOSUB 700 

830: L=ACI)~A*xK-Be J: E=E+1 

840: IF C<>ELET J=K:K=L:GOTO 820 

£50: GOSUB 700 

860: H=ACH) :I=ACI) 2D=K*K-J* CL-H) 

870: F=CHeKe-I4J)/D 

B80: G=CIxk-Hx CL<H))/D 

890: RETURN 

900: SEEP 3:A=A/2:B=A*xA-5:1F B=OGOTO $30 

910: E=CABS B:IF O>BPRINT -A-/E:PRINT -A--E: 
RETURN 

920: PRINT E-AsOsPRINT -A-E-O:RETUR 

G20: PRINT -A-O:PRINT -ArsCrRETURE 


4057 
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SHARP 


PROGRAM NO. 
P4—-B-1 








[ Formula ] 
Determine the number of data, total sum, mean value, and standard deviation. 
Input of weighted data and deletion of input data are possible. 


The standard deviation is computed in the equation below. 


_ /S'Cxi x? 
pe [SS 
n—1 


[ Example ] 


[ Operation ] 
CLOAD YB1Y 


[sHeT! (A) 
(1) With weight, 1 (ENTER); without weight, 2 (ENTER) 
(2) To cut data, press ‘skFt] and [C) keys. 


This operation is valid, however, only when “X=” is on the display. 


(SHFT| 
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* i | PROGRAM NO. 
Title Hg Re gp hg 6 Sa 


aT 











10: "A :N=0:T=0:S=0:A=0 

20: INPUT “WEIGHT—1 NO WEIGHT-2”,A 
39: INPUT "X="7X 

40: IF A=1GOTO 120 

50: F=1 

60: N=N+F 

70: T=T+FxX 

80: S=St+FaXey 

90: GOTO 30 

100: “"C':PAUSE "CUT" 

110: Fe=<F:GOTO 69 

120: INPUT “FI="7F 

130: GOTO 60 

140: “B':X=T/H 

150: S=fCCS=N*xX*X) / (N=1)) 

169: PRINT N:PRINT T:PRINT X:PRINT S 
203 
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SHARP 
Title POISSON DISTRIBUTION AND BINOMIAL PROGRAM NO. 
DISTRIBUTION aes 


[ Formula ] 


In Poisson distribution and binomial distribution, determine probability at x and cumulative 
probability from 0 to x. 


o Poisson distribution 


ro Coe a pes y PCRS 
x! i=0 


o Binomial distribution 


P( X=) = nCx pC l—p)a-* L(p)=%, PCX=i) 
a 


[ Example ] 
Poisson distribution 


Binomial distribution 


[ Operation ] 
CLOAD VBe2Y fire 


(Al Poisson distribution 
-+* Binomial distribution 


Input Display Note 
antribation 


N 
9 
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Input Display Note | 
Ein 
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Coe eee 
1.00818 E-01 | Probability 
WTER)| L(P)= 9.16082 E- 01 
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P= 2.73413 E--01 
L(P)= 6.76685 E—01| Cumplative 
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Titl POISSON DISTRIBUTION AND BINOMIAL 
tle DISTRIBUTION 


Memory content 


PROGRAM NO. 
P4—-B-2 







19: "A'NSINPUT "M-/X ?'",M-X 

20: PAUSE "M=",M 

ZO: PAUSE '"X=",X 

40: L=EXP (-M) :P=L 

50: IF xX=8GCTO 30 

60: FOR A=1TO X 

70: P=M*P/AsL=L4P 

80: NEXT A 

90: PRINT 'P='",P 

100: PRINT "LOP)="FL 

110: END 

120: "“BY:INPUT "N-P-X ?"-N-P,X 
130: PAUSE "N=",N:PAUSE "P=",P:PAUSE "X=",X: 


ooo >| 
= 


—_ 
BIRISIBISIE Slele|slalaleislsl=alslel@|~[oalaja[ols| 




















140: IF X=0GOTO 190 
150: FOR A=1TO X 


160: B=(N-A+1)*P*B/(A*(1~P)) 
170: L=L+& 


u 
Ps 
a) 


180: NEXT A 
190: PRINT "P=",B 
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SHARP 


. PROGRAM NO. 
Title NORMAL DISTRIBUTION AND PERCENTILE 


[ Formula ] 


Determine the normal distribution function ¢(x) and inverse function thereof (percentile) 
according to Hasting’s best approximate equation. 


e d(x) 
Suppose, é (x) =Stg Ot dx 


= l+px 


we obtain, 


@ (x) =1—be Cert te, t? +e t?+c, t*+es t®) 


P = 0. 2816419 C= 0. 319381538 
C,= — 0. 356563782 c3= 1. 78147937 
c,=— 1. 821255978 C5= 1. 380274429 


e Percentile 


x=v1nQ’ 


Co tex tc, x? 


oO S82 = Oo eee 
2 x 1+, x+d2x?+d3x° 


Co= 2. 515517 d,= 1. 482788 
C,= 0. 802853 d2= 0. 189269 
Co= 0. 010328 d3= 0. 00138 
[ Example ] o(x) 
[ Operation ] CLOAD VB8Y (ENTER) 


P 9.77249 E- 01 
0.05 [Surt TQ = 1.645361125 









PROGRAM NO. 
Title NORMAL DISTRIBUTION AND PERCENTILE 


| Memory content [| 2 content 


























10: “A"SAREAD Z 

20: Y=1/¢€14+.2316419*Z) 

30: A=.31938153:B=-.356563782 

40: C=1.78147937:D0=1.330274429 

50: E€==-1.821255978 

60: F=C+Y¥*(D*Y+E) sP=1-EXP (-.5*Z%2Z) /VC 2a) * 

Y* CA+Y* (B+Y* F) ) 

70: BEEP 2:PRINT "P",P 

80: END 

90: "B':AREAD Z 
100: Y=fLN (1/2Z/2) 

110: A=2.515517:B=.802853:C=.010328 

120: D=1.432788:E=.189269 : F=.00138 

130: Q=Y-CA+Y* (B+CxY) )/(14+Y* (D4 Ya CE+FXY) )) 
140: BEEP 2:PRINT "TQ",Q 

150: END 


fals|Slalsleol=[~l/ola/a| 


[<[¢[4]o|/2/0/0/o/2/3/F[x]c|-|z]o[=|m/o/0) 
eisl=(stslelslsle = 
Te 
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SHARP 






Title 





{ Formula ] 






e Estimation of population mean 





Supposing the confidence 
coefficient to be a, ta to satisfy 
the following equation is found: 






ESTIMATION OF INTERVAL OF POPULATION 
MEAN AND POPULATION VARIANCE 


PROGRAM NO. 
P4-B—4 


Estimate a population mean or a population variance. (Both population mean and population 
variance should be unknown normal population.) 


e Estimation of population variance 


Supposing the confidence 
coefficient to be a, x1, x2 to satisfy 
the following equation is found: 


_ XK 


P (“ta<Gae< ta) =a PO x2<See/P< 2) =a 





Then, the intended interval is 


Sxx Sxx 


x? x? 


Then, the intended interval is 











XtJ/WN ta 





Sr oae plot x?-table of n—1 degree of 


freedom. 
n=5, x=12.28 ) 
eee E-01 


From the data above, the population mean is estimated at a& = 0.95. 
28.0 27.7 27.0 27.7 25.7 27.7 ue 
28.3 27.8 26.4 26.5 27.1 


ta plots t-table of n—1 degree of 
freedom. 












[ Example ] 
12.3 12.4 12.1 12.4 12.2 







6 = 7.965838939 E — 01 





From the data above, the population variance is estimated at a = 0.98. 






[ Operation ] 
CLOAD YB4Y 









(A) verses Estimation of population mean, processed data 

(B) ------ Estimation of population mean, unprocessed data 
(K] vere Estimation of population variance, processed data 
(SHFT) (Z) ot Estimation of population variance, unprocessed data 




















eT 


Ct Input Display Note i Input Display 
[1| (ur (Al_[N,x,S,T ? a ce 

om? Novofpicvesfia] 12.3 em} 2 | 
oe Ts COI 7 
rs] 2s | em ial 1o-4 eaegt 2 | Bg 

ewe fandaré — 2.3 

2a | LOWER TE TOGA [Lower imi fa 2 gf Pd 

/5| 2.78 (Giten|] LOWER —12.11789954 [Lower limit 15] 12.4. (enreh eae 
rea cenTeR 1228 —[neton fool 22 wa]? | £3 E 

——, . . eRe Be 
a iol 2] LOW 
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| 
| 
| 
| 
| 





SHARP 


Title ESTIMATION OF INTERVAL OF POPULATION PROGRAM NO. 
MEAN AND POPULATION VARIANCE p4—B—4 


INS.AB? | | 
wae 
aa Paes 
de 
[Lower limit | 


? 
? 
? 
2. 


Input 
(2) 


ow 

2 

ISI 

a 
a 
= 

We) | OS} 
= 
—t 
= 
liz 

a 

= 

= 

a4 


28 


Nw 
Press the [ENTER 


key alone when 
data are completel 


processed. 





; 
12 
13 anes 
14 Repeat thereafte] : 
15 fare 
iH 
W7| 
1a 
ig 
20 


= 
= 
= 
mm 
= 


LOWER 2.73405 E-0§ Lower limit | 
CENTER 6.34545E-OlMiddie | 


2. 558 (ENTER) 
23.209 (ENTER)] LOWER =. 2.734051E-01| Lower limit 


EuTER|) CENTER  0.684545673 
ENTER}| UPPER 2.480632029) Upper limit 








—45 
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so) | (=o 

















Title ESTIMATION OF INTERVAL OF POPULATION 
MEAN AND POPULATION VARIANCE P4—B—4 
accakaies: 
eae 
riety 
















10: "A™SsINPUT "NeX-SeT 2" eNeXeSeT 
20: E=S/[N:GOTO 60 

30: "B'":GOSUB 500 

40: INPUT "T="7T 

SO: E=f(S/N/(N-1)) 

60: E=E*xT 

70: PRINT “LOWER”, X-E 

80: PRINT “CENTER’,X 

90: PRINT “UPPER”, X+E 
100: END 

110: "X":INPUT "N-S-A-B 2?"-/N-E-A-B 
120: E=E*EsS=E*x(N-1):GOTO 160 
130: "Z":GOSUB 500 

140: INPUT "A-B ?",A,/B 

150: E=S/(N-1) 

160: PRINT “LOWER”, S/B 

170: PRINT “CENTER”, E 

180: PRINT “UPPER”, S/A 

190: END 

500: N=0:T=0:S=0 
510: INPUT X:GOTO 530 

S20: X=T/N:S=S-N*¥X*Xs RETURN 
530: N=N+1:2T=T+X 

540: S=S+X*X:GOTO 516 

343 


¢|=|z|o/4]m|o/o/a|>| 
=I 














n 


2 
1 
2 
2 
7 — 
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SHARP 


Title TEST OF MEAN AND VARIANCE 


{ Formula ] 


PROGRAM NO. 
P4—B—5 











Test a hypothesis about mean or a hypothesis about variance. 
(Both population mean and population variance should be unknown normal population.) 


The mean conforms to t-distribution of ¢ = n—1, while the variance conforms to x?- 
distribution of ¢=n—1. Therefore, these values are printed out respectively. 









[ Example ] 
1790 






I 


1780 1800 1800 n= 10 





1800 













x = 1795 
10. 8012345 


1810 1780 1810 1790 





1790 


0 
















From the samples above, is it permissible to judge the population means as 1800? 





0.41 0.89 0.44 0.64 0.42 0.59 n= 12 





Il 





0.49 0.44 0.64 0.42 0.60 0.38 a = 1. 001665281 E-01 


From the data above, test o? = 0.04. 





[ Operation ] 
CLOAD Vp5Vv 
sHft] (A) --:+ Test of mean, processed data 
SHFT] (BB) <=» Test of mean, unprocessed data 
(X} ve Test of variance, processed data 


ifie Test of variance, unprocessed data 














co 


Input 


[Bina [Nate PT 











a aes 7 
Pf eaanaso10s 


ENTER 





| | ae a ee [ee oe Pet | ere 


ary 
~ 


o!]o 
Z| | 
= 
1 
m 
= Es} 


| 
az 
2 
eral 
—1.463850109 za 
ee ee eee ae ci ae fe) 
es ae aes ee 
as mreeees, a eel ee a 
ees es | (ee 





SHARP 


“eep 
sulzNdul J9}je Aoy 
HILN3) OY? SSoIg 


PROGRAM NO. 
P4—B—-5 
xX? 


2.759 166678 


Repeat therafter 


ud 
oO 
2 
< 
cc 
< 
> 
(a) 
2 
< 
2 
< 
Lu 
= 
ve 
12) 
= 
“” 
Lu 
= 


WTER:| 2.759166673 


iE 


0.100 1665281 


Title 





Title TEST OF MEAN AND VARIANCE 


Memory content 









10: "“A™SINPUT "M/N2X7S 2?" - MeN XeS 
20: E=S//N:GOTO 50 
30: "B"sINPUT "M="4M:GOSUB 500 
40: E=/(S/N/ (N=1)) 
50: PRINT (X-M)/E:GOTO 100 
60: "X"SINPUT "MAN,S 2", M,NZE 
70: S=ExEx(N=-1):GOTO 90 
80: "Z":INPUT "M="sZMsGOSUB 500 
90: PRINT S/M 
100: PRINT N~1 
110: END 
500: N=0:T=0:S=0 
510: INPUT X:GOTO 530 
520: X=T/N:S=S-N*X*XsRETURN 
$30: N=N+1:T=T+X 
540: S=S+X*X:GOTO 510 
550: END 
247 
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SHARP 


Title TEST OF DIFFERENCE IN MEANS, RATIO OF PROGRAM NO. 
VARIANCES P4—B-6 


{ Formula ] 


e Test of difference in means 
Test the hypothesis that the means of two normal populations, of which variances are 
known to be equal to each other but values are not known, are equal to each other. 
The equation 


Xy— ey Xn Nn; Nz (n, +n2~— 2) 
“V SHE Sree, Sxx2 ny + Ne 


conforms to t-distribution of ¢=n, +n, — 2. 


e Test of ratio of variances 
Test whether the variances of two populations are equal to each other or not. 


F=V,/V, conforms to F-distribution of 
g, =n, -1, 
2 —_ Ny = 1. 
However, when V,; <V,, exchange 1 and 2. 
[ Example ] 


e Test of difference in means 
n= 8, x,= 2.075 


1 2.3 16 21 22 23 20 19 2.2 a= 2, 375469878 E- 01 


2] 28 25 20 21 22 21 . m=6, ¥,= 2.2 


o2= 1. 788854382 E~ 01 











Carry out t-test by using the data above. 


e Test of ratio of variances 





1.042 1.223 1.6383 1.778 
1.0388 1.217 1.615 0.678 
1.252 0.984 1.693 0.840 


1.875 1.407 1.068 1.752 : n,= 10, 0, = 8.261141757 E-01 
n2— 


= 8, 6. = 8.564527859 E— 01 











Carry out F-test by using the data above. 











2. O75 (ENTER 


Eo a 
7 —1,076244005 


After each input 
of 1,2, press 











SHARP 


Title TEST OF DIFFERENCE IN MEANS, RATIO OF 


[ Operation ] 
CLOAD YB6Y fnteR} 
(SHFT) (A) Test of difference in means, processed data 
(SHFT] Test of difference in means, unprocessed data 
(x) Test of ratio of variances, processed data 


SHFT} (Z| Test of ratio of variances, unprocessed data 














key. 





10 (ENTER 1.375 (ENTER) 


8 (ENTER 











input of 1,2, 
press |ENTER 


‘Repeat thereafter, 





| After each 


































Titl TEST OF DIFFERENCE IN MEANS, RATIO OF PROGRAM NO. 
€ VARIANCES Sas 
Memory content 

















10: "A™SINPUT "N1/N2 0X1 2X20S17S2 27" oMeNe ¥oX 
oRoS 

20: R=R*R*(M-1) 

30: S=S*S*(N-1) GOTO 60 

40: "B":GOSUB 500 

SO: M=N:R=S:Y=X:GOSUB 500 

60: L=M+N 

70: T=CY=X) & fC MeN* CL=2) /CL* CR+S)) ) 

80: PRINT T-L-2 


ee 
Le 100: "X":sINPUT "N41/N2-S1/S2 2?"-MoN-ReS 


¢|-|z/o/=[m/o/o]a/>! 
=I 


elele(sisi=l(slslsislalalelelsl=lslele|~leleala[ela| 
Z 


110: R=R*R:S=S*S:GOTO 150 
120: "Z":GOSUB S00 

130: M=N:R=S:GOSUB 500 
140: R=R/(M=-1) :S=S/ (N=1) 












150: IF S>RLET 2=M:M=N:N=Z:Z=S:S=RsR=Z 


ae ee en eee 
aoe ee 
500: N=0:T=0:S=0 


510: INPUT X:GOTO 530 
520: X=T/N:S=S-N*X*X sRETURN 
530: N=N+1:T=T+X 
540: S=S+X*X:GOTO 510 
379 


1 

’ N, 

’ N, 
Oxi, SX 





Pt tt | IN| <|x}8]</¢]4]0/2/0]v]0]/2/28/r]5| 





SHARP 


Tit! REJECTION TEST, TEST OF CORRELATION PROGRAM NO. 
we COEFFICIENT, TEST OF GOODNESS OF FIT P4—B-7 


[ Formula ] 


e Rejection test .-..- If the data contains one sample which is extremely large (or small) as 
compared with the others, it is judged whether such samle can be ignored 


or not. 
Iftthe value of t is larger than the values shown in the table below, it may 


be ignored. 





os 





























e Test of correlation coefficient 
Test a hypothesis, r= 0. 
Use t-distribution of ¢ =n — 2. 
e Test of goodness of fit 
Test the goodness of fit of a distribution. 
When the measured frequencies are n,,n2, -+ 


and the expected frequencies are m,, mb), -= 



































140 2.177001632 
? pen pe 














ENTER 


SHARP 
Titl REJECTION TEST, TEST OF CORRELATION PROGRAM NO. 
ite COEFFICIENT, TEST OF GOODNESS OF FIT P4~-B-7 
[ Example ] 


(1) The following data contains an extremely large number, 140. 
Test to see whether it can be ignored or not. 


118 120 124 125 
126 127 140 


Given n= 100 and r=0.36. Test for correlation. 


Records of accidents are classified into days of the week, and the following results 
were obtained. 


Monday, 16 Tuesday, 8 Wednesday, 12 Thursday, 11 
Friday, 14 Saturday, 9 


Is it possible to assume that 10 cases of accident occur evenly on every day of the week? 


[ Operation ] 
CLOAD YB7VY 


SHFT) [A] Data input of rejection test 
'SHFT) (B) Rejection test 

(SHFT] (C) Test of correlation coefficient 

SHFT} [Xx] Data.input of test of goodness of fit 


sHFT) (Z| Test of goodness of fit 











Display Display 
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Title REJECTION TEST, TEST OF CORRELATION PROGRAM NO. 
COEFFICIENT, TEST OF GOODNESS OF FIT P4—B-7 
Memory content 



























10: “A':N=0:S=0:T=O0:PAUSE "DATA" 
20: INPUT X 

30: N=N+1sT=T+X 

40: S=S+X*X:GOTO 20 

SO: “BY :T=T/N 

60: S={[(S/N-T*T) 

70: INPUT %:PRINT X/ABS ((X-T)/S):GOTO 70 
80: “C"SINPUT "N="ZN INPUT "R="7R 
90: PRINT “N=",N:PRINT “R=",R 
100: PRINT “T=",R*[C(N=2) /C1-R#R) ) 
110: PRINT “DF=",sN-2 


CG) 





[¢|=|z/o[=[m 
LH 





120: END 
130: "X"I=0:T=0:PAUSE “DATA" 
140: INPUT “N="GNsINPUT “M="7M 
150: X=N-MsI=I+14 
160: T=T+X*X/M 
170: GOTO 140 
180: “Z":PRINT "CHI SQUARE="-T 
190: PRINT “DF=",I-1 
200: END 

305 


aE 
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SHARP 






Titl 2x2 CONTINGENCY TABLE, 2xn CONTINGENCY PROGRAM NO. 
itie TABLE P 4— B—-8° 


{ Formula ] 









In 2 x 2 contingency table, or 2 x n contingency table, determine the value of x?. 





Also, in 2 x 2 contingency table, perform Yates’ correction. 






[ Example ] 














362 229 486 


82 


190 256 430 

















19 52 





[ Operation ] 
CLOAD Vp8V 


(A) vr 2 x 2 contingency table 
HFT) [B) ++ 2 xn contingency table, data input 











SHFT] (CG) ve 2 x n contingency table, x? value 





















Input 


a 


%*N CONTINGENCY TABLE 


input Display | Note | 


2*2 CONTINGENCY TABLE 


a 
2 
— 
= 
on 
2 
~ 
—_ 


w 


> 
ll 


NTE 


. 
= 
re 
n 

g 

IEE! 


ee 
re 
. 





mm 
= 
_ 
oo 
[aa] 
= 
= 
a 
= 


ME Sie 
we 
7 


& 
x 
i 


15.31961442 


a 


Pad 
by 
oo 


oH 


5 
HIE 


or 


TE SHF 


.121898501 4.588981467 7, x% 


jslele[~felelale[ [=| | 
slelis(Slalalsls[sl=| | 
qe | 

i 








Title 2x 2 CONTINGENCY TABLE, 2xn CONTINGENCY | PROGRAM NO. 
TABLE P4—-B-8 


Memory content 










10: “A sPRINT "2*%2 CONTINGENCY TABLE” 
20: INPUT “A1B1="7A 
30: INPUT "A1B2="7B 
40: INPUT “A2B1="7C 
50: INPUT "A2B2="7D 
60: E=A+C 

70: F=B+D 

- 80: G=AtB:H=C+D 

90: N=Et+F 

100: I=ABS (A*D-B*C) 
110: J=I-N/2 

120: K=N/(CE*F*G*H) 
130: PRINT Ik IkKsJeSeK 















140: END 

150: “B":PRINT "2*N CONTINGENCY TABLE” 
160: N=0:C=0:D=0:E=0 

170: INPUT "A="ZA:INPUT "B="7B 

180: C=C+A:D=D+B 

190: E=E+A*xA/ (A+B) 








200: N=N+1:GOTO 170 
210: "C":T=C+Dd 
220: PRINT Te T*CE~CxC/T) /(C%D) -N-1 
230: END 
334 








<|</=[<)/¢/4]a|/0/v/o/2/2/-|>]¢[-[z]o[=[mlolo 
e/S(S(8/8(8lslelslelelelslsl=|slele = [ole lelo 








SHARP 


Title mxn CONTINGENCY TABLE panes 


{ Formula ] 


In an m x ncontingency table 
as shown on the right, calculate 
the value of x?. 











Degree of freedom 
Cd. f.) = (m-1)*(n-1) 


[| Example ] 


(NOTE 1) Calculation is possible only in 
contingency table where m+n< 16. 


When m+n-> 16, ERROR message is 
displayed, which can be cleared by 
(ENTER) button. 

(NOTE 2) The input order of aj; is: 


411, 412, 413, 





Am,n—1> 4mm 


[ Operation ] 
CLOAD YBQY [ENTER 














L3ACI,J) = 





sl Slelsleie|etelspels 





: PROGRAM NO 
Title mxn CONTINGENCY TABLE 
Memory content 
PAL 1 z control 
Bizp 


C 
















: "A":D=O:INPUT “M="ZC: INPUT "N="7B 
: IF B+C>16PRINT “ERROR":GOTO 10 
30: FOR A=11TO C+10 

40: INPUT "R(I)="ZACA) 

50: D=D+ACA) 

60: NEXT A 


mo 
oOo 





j control 


ih 





325 ie [na ow ee 
ics) 


70: FOR A=2TO B+1 
80: E=28-A 

90: INPUT "CCJ)="ZACE) ACE) =ACE) /D 
110: H=C:1=26-B 


[¢|—|z/o|"/m]o] 0) 


120: FOR A=11TO C+16 






icf 
140: INPUT "L7ACI,J) ="FF 
2] Rs] 150 G=ACE)RACA) :F=F-G:H=FAF/GHH: E=E-1 
160: IF E<>IGOTO 140 








170: NEXT A 

180: PRINT "D.F.="%-/(B-1)*(C-1) 
190: PRINT "CHI SQ="7H 

200: END 








a|0|n|o|v]o/2/=/r | 
Sislelsleielels 
LMM 


SHARP 


Title CORRECTION MOVING AVERAGE Pp 4— B—10 


[ Formula ] 
Determine the correction moving average. 
Data: X,, X,, X3, 


1: when n is an odd number 


n 
X= s) X ifn 
t=1 





ntl 
X= Do, Xin 
a 


2: when n is an even number 


X, , X n ; 
X= (34S du, Xt/n 
f 


X nte 


= X2 7 ; 
Xe= (+ + YS xt)” 


In the event of regression analysis, when the moving average is taken by adjusting to the 
period, if any, effects of minor period fluctuations may be canceled. (m < 21) 
[ Example ] 
Correction moving average of 4 terms 
79, 0, 97, 20, 23, 
99, 68, 34, 93, 31 


[ Operation ] 
CLOAD YB10V 


faa] 
= 
= 
- 


aput [Display [ote [| tout 


HOW MANY TERMS ? 


0. 
23. 42 


= 
= 
= 
nm 
= 


His 


sHFT| (A) 
E 


|2/2| 


w]e 
oOln 
EI zl E| 
= = == 
i — bom 
all lr tle 

| = E E | 








bo 
oo 


| 


= 
= 
















PROGRAM NO 


Title CORRECTION MOVING AVERAGE Siewlae 
Memory content. 
Ali] 


Byte 10: oe “HOW MANY TERMS ?”,A 
ol. 
















30: IF AX> INT (.5*A)*2G0TO 130 
40: FOR C=6TO A+5 
50: GosuB 500 
60: NEXT C 
70: FOR C=6TO At5 
80: INPUT "X="7D 
90: E=D+E:PRINT De CE-.5*(D+A(C)))/A 
100: E=E-A(C) :A(C) =D 
110: NEXT C 
120: GOTO 70 
130: FOR C=6TO A+t4 
140: GOSUB 500 
150: NEXT C 
160: B=At5SsINPUT “X=""7A(B) :B=A~1 
170: E=E+A(B+6) 
180: PRINT A(B+6)-E/A 
190: FOR C=6TO Bt6é 
200: INPUT "X="7) 
210: E=E-ACC)+D2ACC) =D 
220: PRINT D-E/A:NEXT C 
230: GOTO 190 
240: END 
500: INPUT “X="7D 
510: E=D+E:ACC)=DSRETURN 


314 




























SHARP 


. PROGRAM NO. 
Title RANDOM NUMBERS ag 


{ Formula ] 














Generate random numbers according to the congruence method. 


23%xn 
10°+1 








xn = 28xn—int ( > xXC10®+1) 










Xo is an arbitrary 8-digits integer. 





[ Example ] 


Clear all memories, and generate ten random numbers at the initial value = 0. 










[ Operation ] 
CLOAD Ypi1Y ENTER) 







(Note) Make sure the memory X is loaded with no character. If the memory is loaded with 
character, an error will occur. 



















Note 





9, rasan | 
10. vrosgoz3| 





2 








5 691156 


Eau 

3 fae 

ENTER! | 4 91384399 My ee 
en ee 


15896588 


6 ae 
7 65621521 | ft] 
ae 





8 9294968 


SEE EEE EERE 
, 















PROGRAM NO. 
Title RANDOM NUMBERS 
Memory content 
Biz] eer 
















10: "A" SINPUT "INITIAL VALUE ="27 
20: INPUT "NUMBER="FN 

30: X=AGS (4391474+X42) 

40: E=EG+4 

50: FOR A=iT0 N 

60: B=23*xX 

70: X=BeINT (B/E) *E 






10°+1 







SOQ: BEEP 2:PRINT ArX 
SO: NEXT A 
: END | 






fd 
E [5] 
F [| 
G7] 
He] 
13 


i 
Ky 
CC 
Ee 
EC ee 
LT ae 
jajy 
Rie 
Sif 
2 nl 
Ufa} 
| 
Wie 
a 
Yj 
Zi 
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SHARP 






Titl SUM OF PRODUCTS, CORRELATION COEFFICIENT,| PROGRAM no. | 
ithe LINEAR REGRESSION (y =ax+b) pP4—B-12 


















[ Formula ] 






Determine the covariance between two related variables, correlation coefficient, and linear 
regression coefficient, and estimate on the basis thereof. 


Sxx =) xi2- nx? 






Sry =ixiyi — ney 


S yy =i? ny? 










C =SryfQ te covariance 
r= S2ry/VSSux Syy 0" correlation coefficient 
a =$ ry/ Sxx 





I regression coefficient (vy = ax + b) 
b = J-—az 





[ Example ] 












x 69 | 7.6 | 7.6 | 9.0 | 8.1 |; 65 | 64 | 6.9 
y | 12 | 10 a |s5 | 6 15 14 12 



















{ Operation ] 
CLOAD VR12v 

(SHFT) (A) ---.--- 

wm) Bo 









































Input Display | Note | Input Display Note 
(sHFt] (A) | x.¥ It ENTER) | C —3.060714286 
g [12 ENTER) | A ~ 8.942042818 
iL 5 [13 ENTER) |B 39.4475621 
3 14 wren) | R 9.69396 B-01 
a 15 ENTER) | ESTIMATION 




































ENTER) | VARIANCE 


8 
7.76428 E—01 12.88928571 19 
10 (EnTen| | SXY 21.425 20 








(entea) | 7.375 10.375 LOUENTER) | 10 0.02713892 
1 


































SUM OF PRODUCTS, CORRELATION COEFFICIENT PROGRAM NO. 
Title LINEAR REGRESSION (y =axt+b) * panes 






Memory content 


C0 ee 
Bia}. 
ej} 








10: “A'™:PAUSE "DATA" 
20: FOR A=9TO 14 






























(Cea 
CC a 2 
70: J=J+Y 
et 
ita Se 


130: "BU sI=I/NiJ=d/N 
140: KakKeoNeI*T:Lal-NeIxJ 
150: M=M-NxJ*J 
160: PRINT “MEAN” 
165: PRINT I,J 
170: PRINT “VARIANCE” 
175: PRINT K/(N=1) /f/ (N=1) 
180: PRINT “SXY'AL 
190: PRINT "C"-/L/(N-1) 
200: A=L/K:B=J-Ax*l 
210: PRINT "A'/A:PRINT "B'",8 
220: PRINT "RU SL/L (KEM) 
230: PRINT “ESTIMATION” 
240: INPUT "X="2X 
250: PRINT X/A*X+B 
260: GOTO 240 
270: END 

335 





xp? 


Xi Mi 


Mi i 
oy 


—_ 


~~ 


jo|vlolz/a[r [>= 









El 






pet eet Sth aL PS [ae 


SHARP 


: PROGRAM NO. 
Title EXPONENTIAL REGRESSION aera 


[ Formula ] 


Fit two sets of data, x;, y;, to the exponential curve y=ab*, and determine coefficients 
a, b, and correlation coefficient r. 


#=Vrim, Y= Iny:/n 
Ser = Vi xi —n x 

Sey = Vix; Inys ~n?¥ 

Syy =) (ing; )*-n¥? 


Sxy SxyY = 
oe, Se z. a=eY~-b'¥ pb=eb! 


r= , b= ‘ 
V SxxSyy Sxx 


[ Example ] 





x 0.5 1.2 3.1 74 


Fit this data to y= ab*, and estimate when x = 8.3,—1.2 


{ Operation ] 
CLOAD VYpi3V (EMER) 


Cc 
fa _aoasiai [| 
[3 ecansrtas[ 
ai [esmaTON [| 


X= 
83 1773.179488 























Title | EXPONENTIAL REGRESSION 


Memory content 


aes 
Chae 
fap 
Bye 
E | 

i 
Ci eee 
















10: “A':FOR A=9T0 14 
20: ACA)=O:NEXT A 


30: PAUSE “DATA" 

40: INPUT "XsY" sXe 
50: Y=LN Y 

60: IsItXsJeJ+Y 

70: K=K+X*eX:L=L+XxY 
80: M=M+Y*Y>sN=N+14 

90: GOTO 40 
100: “BY :sX=I/N:Y=J/N 
110: K=K=<N*X*X 
120: L=LoNxXxY 
130: M=MeN*YxY 
140: B=L/K:A=EXP (Y=-B*X) 
150: B=EXP B 

160: PRINT "R'-L/SCK*M) 
170: PRINT “A'Z/ASPRINT "B",B 
180: PRINT “ESTIMATION” 
190: INPUT "X="7X 

200: PRINT X/A*xB*X 
210:-GOTO 190 

220: END 

270 

















i 


th 
® 
wl 


aL 
oe 











2/0] 2/o/2/=/-|ale|—| 
slelaleleleis(=let=| 






= /<[c/5 
li 





Pt eT TE TIN <b] 
[Sl m| S| 

bc eel 
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SHARP 


Title CORRECTION EXPONENTIAL CURVE ey ph 





[ Formula ] 


In a correction exponential curve expressed in y = k —ab~, supposing the value of k 
is known and unknown, calculate coefficients (also k if unknown), and estimate the value 
of y with respect to the value of unknown x. 


1. k known 
y=k—abst 
k—y=abs 
Taking the logarithm of both sides yields 
on (kR-y) = bnatxénb 





Now, assuming Y =/n(k —y), A=Ina, B=Inb, then we obtain 
Y =A+Bx 


Hence, the coefficients can be calculated by the method of least squares as follows: 


i ax SYS an ¥ 


ae nd x’— (Sx)? 


nJxY— Six SY 


Be oye 


a=eA 


: 


b = eB 


2. k unknown 


Expressing the data as 3 (discarding fractions of 3), the data is divided into three 
kinds: OS x <n, n<x<2n, 2n<x<3n. 


Respective partial sums are expressed as follows: 








Display 

































































SHARP 


PROGRAM NO. 





































































































Title CORRECTION EXPONENTIAL CURVE Dae fA 
2n—1 
a aa yi 
tn 
a 3a—1 
Msy= dv 
1=2n 
Hence, 
— (sees 
L2¥- Dy 
b-1 
a= (Ay a Gaye 
zo. os bet) 
R= AoE (OS a) 
[ Example ] 
1. k known 2. k unknown 
The table on the right Year | Yield (million koku) y 
is a record of yield of 1883 ~ 1887 | 0 33.8 
rice in Japan. 1888 ~ 1892 | 1 38.9 
Plot the record in 1893 ~ 1897 | 2 37.7 
curve, and estimate eae - es dl ve 
when x = 15, 16. L : 
Dy 199.2 
1908 ~ 1912] 5 50.6 
1913 ~ 1917} 6 55.2 
1918 ~ 1922] 7 58.9 
1923 ~ 1927 | 8 58.0 
1928 ~ 1932 | 9 60.5 
- Dy 283.2 
ae 
pane 1933 ~ 1937] 10 62.8 
re 1938 ~ 1942} 11 63.5 
1943 ~ 1947 | 12 60.4 
x= 15 1948 ~ 1952] 13 63.9 
1953 ~ 1957 | 14 68.2 
3 318.8 
i Input Display Note Input Display Note 
1} (stft] = {B] |HOW MANY DATA ? 11 15 (ENTER) | 15. 6595848202 ae 
2 15 (ENTER) | y= |12 X= | 
3 38.8 (ENTER) | Y= 13 16 16. 6643785267 
ena rate y= 15 ee 
6] 68.2 (EME) A= —_-39.91657038 |16) 
7 ENTER]| B= 8.42236 E-01 17 








SHARP 


: PROGRAM NO. 
Title CORRECTION EXPONENTIAL CURVE 


[ Operation ] 
CLOAD VB14V 
(Al k known 
k unknown 


el 
eae 
| 
heat 


(i eee leer 
[es ae a aa 
i ae Cares 
Cees a 
aa Perse 
a ee 
= 
ae, eee 
aes Geese 
——Ee eee 





Memory content 


Cont 

FA] 1] Cobia | e_| 

ni [B90 

CE ere 
Int a 

Dia) ce | Bete 


eles ae 
Gli} sy | ay 









: PROGRAM NO 
Title CORRECTION EXPONENTIAL CURVE 








1G: "“A'SCLEAR : INPUT "N="7O:ENPUT "K="7C 
20: PAUSE "DATA" 

30: FOR A=1TO D 

40: INPUT "X="7X: INPUT "Y="7Y 
SO: Y=LN (C-Y) 

60: E=X+E:F=X*X+F 

70: GH=Y+tG:H=HtXxY 

80: NEXT A 

90: B=D*FrE*E 

100: A=(F*G-E*xH) /B 

119: Ba cors EEG Ye 

12Q: A=EXP A:B=EXP D 

130: PRINT mAs", A 

140: PRINT "B="-B 

150: PRINT “ESTIMATION” 




























160: INPUT "“X="7X% 
170: PRINT X-C~AxB4X:INPUT “X="-7X:G0TO 170 
180: END 


190: "B':CLEAR :INPUT “HOW MANY DATA ?”,D 

200: A=INT (€D/3) 

210: FOR C=1T0O 3 

220: FOR X=CxA-ATO Cxf-4 

250: INPUT "Y="-Y 

240: ACC+4) =Y+A0C4+4) 

250: NEXT X:NEXT C 

260: C=A:B=( (GF) /CFHE))4(1/0) 

270: D=B4C-1:A=(E-F)*(B=1) / (DD) 

280: C=CE+D*A/ (B-1)2/C 

290: PRINT "A="7A 

300: PRINT "B=",3B 

370: PRINT "K="-C 

320: PRINT “ESTIMATION” 

330: INPUT "X="7X 

340: PRINT X-C-A*BAX: INPUT "X="7¥%:G60TC 340 
j: END 


SHARP 


= PROGRAM NO. 
Title LOGISTIC CURVE P4—B—15 


{ Formula ] 


In a logistic curve expressed in y= supposing &k is known and unknown, 


1+ me—@ ° 
determine the coefficients m, a (also k if unknown), and fine the estimation of y with 
respect to the value of unknown x. 


1. k known 


k 


a 1+me~ex 


Ce ) =me-az 


gn Ra) = ~nm—ax 


Assuming Y = In( —1), A=Inm, B=~-a, we obtain 


Y =A+Bx 
Hence, according to the method of least squares, it follows that 


Sx SY-SxSxY 


nDx2—-(S x)? 


— nSxY-S x SY 
nJx?— (Sr)? 


m=eA 


a=-—B 


2. k unknown 


Taking inverse numbers of both sides of an equation expressing a curve, 





Now, assuming 


w=48.1043078 | | 
PESTIMATION. | 


a 
5. peau | 
2 
1} 

6 
54 
10 
150 














SHARP 


Title LOGISTIC CURVE 


Y =K—AB* 


PROGRAM NO. 
P4—-B-15 


This can be determined by the method of correction exponential curve as follows: 




















B= O3Y —)oY L 
S2Y SY 
B~1 
A= 
( 31Y—32Y ) (Br—1)2 





4] Br~-1 
K= val SyY+ Pt) a3 





a-——¢nB 
k= 1K 
m= —RA Year 





of 






















Yt Total (100 sets) 


{ Example ] 









1. k known 2. k unknown 

The table on the right 
shows the number of 
TV sets in a certain 
local district. 

Plot the data in curve. 
And, estimate the value 
of y when x = 20, 21, 
22. 
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ieee 
at —sotarafy= | fa fan error | 
CaS (Ca 
EN 
| eel 

Pes 

el 

a 


HOW MANY DATS ? | 20 (ENTER)| 20 1584.558488 


nw 
— 
[aa] 
= 


~ 
a 


6] 1256 (Enter) A= 2.50744 E-01 Piste = tl 
7 es) 
| tara ariser291 —— 7 
| ___twralestuanion? [Jal «i SSCS 
vo) eX 
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SHARP 


. PROGRAM NO. 
Title LOGISTIC CURVE p 4-B—-15 


[ Operation ] 
CLOAD Vpi5v 
(A| k known 
SHFT k unknown 


Hi 
2 
o 
i 
5 
G 
o 
8] 
10 








Memory content 


Control 
Aen etbte Am AL 
B|2 ponte 
ete [ana 

Bnta 
b” —1 
esp [2s | 
Flepee [as 
Hla] zey | 

































Foal EAS 
fslst= 


















[<|¢|4|o|x/o[vlolz[= 










y,Y 

















PROGRAM NO. 
Title LOGISTIC CURVE 






1O: “A™':CLEAR INPUT "N="ZD:INPUT "K="7 
20: PAUSE "DATA" 

30: FOR A=1TO D 

40: INPUT "X="-X:INPUT "Y=";Y 

50: Y=LN (C/Y=-1) 

60: E=X+E:F=X*xX+F 

70: G=Y¥+G:H=X*Y+H 

80: NEXT A 

90: B=D* F-ExE 
100: A=CF*XG-E*H)/B 

110: B=(D*H-E*G) /B 
120: A=EXP A:B==<B 
130: PRINT “A=",B 
140: PRINT "M=",A 
150: PRINT “ESTIMATION :INPUT "X="7X 
160: PRINT XeC/(C1+AxEXP (-B*X))2INPUT "X",X 
170: GOTO 160 
180: END 
190: "BYSCLEAR :INPUT “HOW MANY DATAS ?",D:A 
SINT (D/3) 

200: FOR C=1TO 3 
210: FOR X=CeA-ATO CeA=4 
220: INPUT "Y="7y 
230: ACC+4) =1/Y+A(C+4) 
240: NEXT X:NEXT C 
250: C=A:B=((G-F)/ CFE) )4(1/C) 
260: D=BAC=1:A=( EF) *(B=1) / (DeD) 
270: C=C E+D*A/ (B=1))/C 
280: C=1/CrA=-A*xC:B=-LN EG 

290: PRINT "A=",5 


300: PRINT "N="ZA 
310: PRINT "K=",C 
320: PRINT “ESTIMATION 2?":INPUT "X="3X 
330: PRINT XeC/(1+AkEXP (=8%X%)) SINPUT "X=" 
340: GOTO 330 
250: END 
S48 








SHARP 


. PROGRAM NO. 
Title 1-WAY LAYOUT P4—B—16 


[ Formula ] 
This program calculates analysis of variance by 1-way layout. 
Level of factor Ai(i=1~m) 
Number of replications j@G=1~n) 


Data at j-th time in Aj level xj 
n 
j=1 


CT =( JT; )?/mn 

Srp =x ij—-CT 

Sa = ST4/n—-CT 

Se =S7-Sa 

ér =mn-—l 

¢A =m-1 

gE = 67-¢A=m(n—1 ) 
Va =SA/¢A 

Ve =SE/$E 


F =VA/VE 


[ Example ] 








[ Operation ] CLOAD VBi16v 


ge 
fpr r= ae | 
a 
[vas __ates |_| 
ae [vex | 
Ieee 
oe 
a 
a 
7 











F= 4.778846 154 





Memory content 
Ali] inva 
Biz; 
PO al). a. ll 
1) aaa 
els] se 
POD eo ome sean 
Gif 
A ie 
PU [s{ te br 
uff fs 
a 
Ce 
Mis sete 
























40: “A'NSINPUT "N="ZN: INPUT "A="7M 
20: T=0:S=0:U=0 
=O: FOR A=1TO M 
40: I=Q0:J=1 
50: INPUT "X="7X 
60: I=I+XsS=S+X*X 
70: IF J<>NLET J=J+1:GOTO 50 
60: T=T+I:U=U+I*I 
90: NEXT A 
100: T=T*xT/M/N 
110: S=S-T:U=U/N-T 
120: I=M*H-1:N=N-4 
130: E=S-U:N=I-M 
140: A=U/M:V=E/N 
150: PRINT “SA=",U:PRINT “SE=",4E 
160: PRINT "ST=",S:PRINT "DF A="-¥M 
170: PRINT "DF E=",NePRINT “DF T=",1 
180: PRINT "VA="/A:sPRINT "VE="Z,V 
190: PRINT “F=",A/V 
: END 







































i 


[<|</=|<|c/4/o/x/o|v/ol2! 
fsielelelsts(slelelslalals| 
My My 
iz x 
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SHARP 
i PROGRAM NO. 
Title 2-WAY LAYOUT 


[ Formula ] 


2-way layout data (with no repetition) 





Correction CT=T?,. “a.b 
term 


Total 
variation St =a (xij -%..)" 


= 22 2745 -—CT 
1 j 
=a,b-l 


A 
variation =b. J (¥i-*¥..)? 
1 





=2'T%i.A—CT 


ga =a-l 


Ach Sum of Degree of Unbiased Unbiased B 
actor) squares} freedom variance V_ variance ratio F variation Sg =ad'(¥.j—%..)? 


cal =ST2 j “a-CT 


gp =b—1 





Error 
variation Se=ZTS (xij— 
ij 


* a is not limited in the level. b $17 Sata, 
—¥.j+%..)? 
=St—Sa—-Ss 


ge=(a—-1)(b-1) 











- 
t 


SHARP 


PROGRAM NO. 


[ Example ] 
Data 


fa fo [| [la 


Sum of squares | Pees OY 
jsa-1g0425{ 3 | 42475 | 5.87 | 

|) [se- 0650/2 | 453.25 | 560 | 
|e [Se~4ess.50] 6 | sosz | | 


[ Operation ] 
CLOAD VYB17V 





wre | vp 
FA 




















i] ee | 





: PROGRAM NO. 
Title 2NAY Lavour 


Memory content 























Me, 
as 
1c) 


¢ “BY sINPUT "A,-82",-C,B 
20: FOR A=STO 9+B 
30: ACA)=O:NEXT A 
40: I=1 
SO: D=O:FOR A=10TO 9+B 
60: INPUT 'X="7H 
70: ACA)=ACA)+H:D=D+H 
80: G=GtH*H 
90: NEXT A 
100: E=E+D*D:F=F+D 
110: IF I<>CLET I=I+1:G0OTO 59 
120: H=0 
130: FOR A=10TO 9+8 
140: H=H+ACA)*ACA) 


oxy7 , ST 


xiz, &T7*7, Sa 


150: NEXT A 
160: F=F*F/B/C:G=G-F :E=E/B-F :H=H/C-F 
170: I=C*8-1:C=C-1:B=B-1 


160: D=G-E-H:A=I-B-C :J=E/C:K=H/B:L=D/A 
1960: PRINT “SA"-E:PRINT "SB"-H:PRINT “SE">D 
QO: PRINT "ST',G:PRINT "DF A™-C:PRINT “DF 8B 





"DF E',/A:PRINT "DF T'-I:PRINT "VA 


"VB",/KsPRINT “VE"-/LSPRINT "FA" eJ/ 






220: PRINT 
400 


"FB" -K/L2END 






— 
elelels(sl=[slelelslalalslalsl=|slelo|~leolalaleln| 


Pt TT TT TL IN| <|x[s|<e[4[o/a/o/s[ol2|3/r|x/¢|-/z|o/-/m/o/o/a|>| 


SHARP 


. PROGRAM NO. 
Title 2-WAY LAYOUT (WITH REPETITIONS) P4—B—18 


[ Formula ] 


This program calculates analysis of 
experimental data of 2-way layout 
having repetitions. Original table 


Number of replications, n 
Level of factor of A, a 
Level of factor of B, b (533) 


Find the sum of n times of repetition 
from the original table, and make up 
T-table. 


That is, 
Tepe ple 
ogee eet 
Thereafter, calculate by using the 
original table and T-table. 
Correction term = CT = (2 xije)?/abn 





Total variation sj = Ox? ¢5k—-CT 


Among class Sas =2T7ij /“n—CT 
variation 


Error variation Se =St—Sas 


b 
A variation Sa = 22 Tij )?/on—CT 
= 


a 
B variation Sa =J5( 20a Ya n~-CT 
= 


Interaction Saxs = Sasp~-Sa—Ss 














SHARP 


: PROGRAM NO. 
Title 2-WAY LAYOUT (WITH REPETITIONS) 


Find the degree of freedom 
of each variation. T-table 


gt = abn—l 


gaB= ab—} 





dE = ab(n—-1) 
GA a—1 
gap = b—-1 





daxs = (a—-1)(b—-1) 
Find the unbiased variance. 

VaB= SAaB/gap 

Ve = SE/GE 

Va = SA/GA 

Ve = SB/$B 


VaxXsp= SaXB/¢aXB 


Find the variance ratio. 
FaB = VAB/VeE 
Fa =VA/VeE 
Fa =VB/VeE 
Faxsp = VAXB/VE 


Summarize the data above into 
a variance analytical table. 








1.624999887 
7.799999459 


SB= 5.895833 
































VA*B= 4.47916E01 


FAXB=  2.150000272 

















SHARP 
F PROGRAM NO. 
Title | 2-WAY LAYOUT (WITH REPETITIONS) 


[ Example ] 





When molding a synthetic resin, the operation was conven- 
tionally carried out at molding temperature of 80°C, poly- 
mer time of 4 minutes, and catalyst amount of 1%. But the 
strength is not sufficient under those conditions. So, it is 
desired to modify the job standard by varying the molding 
temperature and catalyst amount. 

Therefore, at different molding temperatures 80, 90, 100, 
110°C (A,, Az, A3, Aq), and catalyst amounts 0.5, 1.0, 
1.5% (B,, B,, Bs), experiments were conducted under the 
conditions of 3 x 4= 12 twice each, totaling 24 times. 
The results are summarized in the table shown on the 

right. Attempt to analyze the data. 




















[ Operation ] 
CLOAD VBI8VY 























i 
i 
[analy = —creosoors |_| 
es 

Pp 


= 2. 
= 2. 
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Title 2-WAY LAYOUT (WITH REPETITIONS) 


ee 


Memory content 


T. 


n1 Oa 


n 
> 


< 


ny,n 


—_ 
SLRlPlBi(Sieisislselslalalsislsl=lslele[~lelalale[n[-=| 
Ps] 
> 


pA 
5 
ry 
Ee 
ce 
|G 
fH 
ct 
K 
/M 
LN 
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a 
Ky 
Ri 
|S 
Ui 
vl 
|W 
x! 
Ej 
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Si 
ai 
ey 
te 
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PROGRAM NO. 
P4—-B—18 


10: “A™:CLEAR 
20: INPUT “NeAs Berle Ack 
SO: PRINT "N=";ZUSIKG "™ 
Br" OK?" 
FOR F=1TO A 
FOR G=1TO 8 
FOR H=1TO C 
INPUT “XCIJK)="7 
L=D+L sJ=J+D*D 
NEXT H 
Q=Q4L :P=P+LaL 
E=G64+17:ACE) =ACE) +L :L=0 
NEXT G 
K=K+Q«Q 
I=1+Q:Q=0 
NEXT F 
FOR E=1S5TO 17+8 
O=0+ACE)*ACE) 
: NEXT E 
I=I«I/ CA*BxC) 
J=J-I 
K=K/ (B*C)=1 
: O=0/CAkC)-I 
P=P/C-I 
Q=J=-P 
R=AxB* (C-1) :S=Q/R 
BEEP 2:sUSING :E=K:L=A-1:GOSUB 500 
PRINT “SA="/K2PRINT “DFJA=",/L:PRINT "VA 
=",M:2PRINT "FA=",N 
280: K=0,L=B-1:G0SUB 500 
290: PRINT "SB=",K:PRINT "DF.B="/LiPRINT "VB 
="ZM2PRINT “FR="-1 
300: K=P-0-E:L=(A~1)*(B+1) :GOSUS 50G 
210: PRINT "SAkB=",KSPRINT "DESA*G=",L: 
PRINT "VA*5=",82PRINT “FAxkG=",N 
320: K=P:L=Ax6-1:G0SuUs 500 
330: PRINT "S=",K:PRINT "DF=",L:PRINT "V="," 
sPRINT "FH",N 
K=Q:LeR:h=S 
PRINT “SE=",K2PRIUT "DFJE="/LiPRINT "VE 
=" ,fi 
K=J :L=A*x8*C-4 
PRINT “ST="/K:PRINT "DF.T="eb 


eur" ASU EAS Beals 


240: 


350: 


3603 
370: 
380: END 
500: M=K/LEN="/s 
510: RETURN 

681 





SHARP 
é oem PROGRAM NO. 
Title ¥—R CONTROL CHART, Pn CONTROL CHART 


[ Formula ] 





1. Find the contro¥limit of x—R control chart. 






2. Find the control limit of pn control chart. 
LCL = pn—8 vpn(1-p) 
CL =pn 


UCL = pnt+8v/pn( 1—p) 


[ Example ] 















1. x—R control chart 2. pn control chart 









ts 
a 


be 


— i est 
re Ace Be 
5/8|S 
5 
a 
qq 
or 





oe 


=| et: 
| 3 








ole 
aw 
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oo 


|| meut_ | Display 
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Zz 
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11 ¥ 
sani? ef a 
ioe ra? | _ a 
oral 4 
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16 





L 
L 


ce 
i is 3 
in 





? 
22.37 (ENTER|| X—= 22.74 
Repeat steps 6 to 8 thereafter 
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SHARP 
. = PROGRAM NO. 
Title x~R CONTROL CHART, Pn CONTROL CHART P4—B—19 


[ Operation ] 
CLOAD VB19V 


ESHFT) [A]... x—R control chart, data input 














SHFT) (B) vee x—R control chart, result 
(SHFT) (G} ....... pn control chart, data input 
(SHE: (DB) -+--- pn control chart, result 






























































































| Input Display Note | Input Display Note 
1/ (st = (e) | N= [1] (srt) (BD) | Lc 7.48498117 

250 (ENTER)| R I= [12 CL 20.42857 143 

3 18 (ENTER) "2 |13 lenTeR|| UCL  38.422161669 

4 ENTER [14 

rs 26 [EWTER)| |13| 

8 : : I16 

Repeat thereafter | 17 

o fe 





















Title | %—R CONTROL CHART, Pn CONTROL CHART 


Memory content 


als 
Bite 
eis 











10: “A'™:sR=0:H=0:1=0 

20: INPUT "N-A22D32D4",N- FD E 

30: INPUT "X="-7X:B=X:C=X:G=X 

40: FOR A=2TO N 

SO: INPUT "X="7X 

60: IF X>S8LET B=X 

7O: IF C>XLET C=X 

SO: G=G+X 

90: NEXT A 

100: PRINT "X==",G/N:PRINT "R=",B-C 

110: H=H+G:R=R+B-C:I=1+1:GOTO 30 

120: "B":R=R/I:H=H/N/I:PAUSE '"X" 

130: PRINT “LCL"-H-F*R:PRINT "CLY-H:PRINT "U 
CL" -H+Fx*R 

140: PAUSE "R™:PRINT "LCL',/D*#R:PRINT “CL"ZR: 
PRINT "UCL'",/E*xR: END 

150: "C':P=Q:INPUT "N="5Z 

160: FOR A=0TO 999 

170: INPUT "RI="fR:Y=R/Z:PRINT “PI",YxE2 

180: P=P+Y:NEXT A 

190: “D'3:P=P/A:N=P*Z:S=3%[(N=N*P) 

200: PRINT "LCL"-/N-S:PRINT "CL"-N:PRINT “UCL 
"| ZN+S:END 

400 








ES 
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Pt tT TT tT IN| <|x/e[<le[a/o/2/o/s/o/2/2[r|x[¢[-|z[o[=/m] 


SHARP 


. PROGRAM NO. 
Title Ls ORTHOGONAL ARRAY TABLE 


[ Formula ] [ Example ] 


This program performs experiments of two levels according to the orthogonal table above 
and analyzes the data. 


s,=— LM of level 1) — (sum of level 2)] ? 


= ag +X, +X3 + Xq —Xs —Xg¢ ~X_ — Xa)? 


gd: =1, Vy =S1/¢1 


Compute similarly in row 2 and thereafter, and find the total Sr. 


[ Operation ] 
CLOAD YB20V 


Input Display Note 
SHFT DATA 
cai re 


ENTER 


S1=4 
=r 


S4= 245 


Se) ieee eee eS 





PROGRAM NO. 
Title L; ORTHOGONAL ARRAY TABLE 


Memory content 


> "A" :T=0:X=0 
: PRINT "DATA" 

30: FOR A=2TO 9 
: INPUT "X="ZACA) 
: X=X+ACA) 
: NEXT A 
2 S=C+D+E:Z2$="S1=":GOSUB 500 
2 S=C+F+G:Z$="S2=":GOSUB 500 
: S=C+H+I:Z$="S3=":GOSUB SOO 
: S=D+F+H:Z$="S4=":GOSUB 500 
: S=G+D+I:Z$="S5=":GOSUB 500 
: S=E+F+1:2$="S6=":GO0SU8 500 
> S=E+G+H:ZE="S7=":GOSUB 510 
> PRINT “ST=",T:END 
> S=2%*(S+B)-X:S=S*S/8 
: T=T+S:PRINT 23S 
: RETURN 








SHARP 


Title Lis ORTHOGONAL ARRAY TABLE P4—-B_21 





{ Formula ] 


This program analyzes the data of experiment conducted according to Ly. (2°) orthogonal 
array table. 
F value is not outputted, which should be calculated manually. 


S; = ae [(sum of data in level 2) — (sum of data in level 1)] * 





Calculate similarly until S,;. 
him dis =! 
g=15 





Vi= Si 


Vis = Sis 
Summarize the data above into a 
variance analytical table. 














{ Example ] 


In order to increase the yield of a certain reaction process, experiments were conducted by L4 
(2°) with five factors — reaction time (A), temperature (B), quantity of component (C), pressure 
(D), and apparatus (E) — being varied in two levels. The effects intended to know are the main 
effect and interaction of two factors, namely, Ax B. AxC, BxC, AxD, BxD. Therefore, 
A, B,C, D, and E were allotted respectively to 1,2, 8, 15, and 7, and experiments were done 16 
times by randomizing. As a result, the data shown in the table below was obtained. 

Attempt to analyze the data. 








2 0.16000 
3 249.64000 
4 0.01000 














SHARP 


2 PROGRAM NO. 
Title L,; ORTHOGONAL ARRAY TABLE 





on wos vn wb YY WH YH 


2 
2 
2 
2 
2 1 
2 
2 
2 
A 


[ Operation ] 
CLOAD YB21Y [ENTER 


[trout [Dispay [note [[ tmput | Dispay | Note 
i] ame] 5. ogo00 st | 


7 0.16000 1 
8 98.01000 1 
9 0.09000 


1 
10 0.00000 1 
11 36.00000 


1 
12 0.25000 1 
1 


13 0.09000 


14 0.09000 





















PRO NO. 
Title | Ly. ORTHOGONAL ARRAY TABLE 


Memory content 




















10: "A™:AC39)=0 
20: FOR A(3S5)=1TO 16 
30: INPUT ACAC35)) 
40: AC39)=A(39)+ACAC35)) 
50: NEXT AC35) 
60: AC17)=3333:A018) =330033:A(19) =33000033 
70: AC20)=3030303 :A( 21) =30300303:AC22) =3003 
3003 
80: AC23)=3303005 :AC24) =11111111:AC25) =2222 
1111 
90: AC26)=221122112A027) =112222112A028) =212 
12121 
100: AC29)=12122121:A(30) =12211221:A(31) =211 
21221 
110: FOR AC37)=17TO 31 
120: AC35)=ACA(37)):GOSUB 500 
130: NEXT AC37) 
140: AC38)=0:AC2)=1 
150: BEEP 2:FOR AC34)=1TO 15 
160: AC39)=A(034) +16 2401) =ACAC39) ) 2 A038) =AC1) 
+A(38) 
170: PRINT USING "#HH#"7ACE4) 2USING "HHHAHHAF 
ePHHHH' FACT) FUSING “HPHBEH'?ZAC2) 
175: NEXT AC34) 
180: USING :PRINT “T',AC38) 
190: END 
500: A(34)=0 
510: FOR AC38)=1TO 8 
S20: AC36)=AC35) 2AC35)=INT €.27*AC35)) 2AC36)= 
AC36)-10*AC35) 
530: AC33)=2*AC38) 2AC32) =AC335) -4 
546: AC34)=CAC36)-INT €A036)*.5)*2)*ACAC32)) 
+INT €AC36)*.5)*ACA(33)) +4034) 
S50: NEXT AC32) 
S60: AC33) =AC39)-2*A(34) 2ACAC37) ) =AC28) XA 38 
»/16 
570: RETURN 
740 






Data 


ojz/air[xlc[~|z/o/a)m/o]o 
glzlslslelelel=[=le[al= 
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Difference, Si 









um of one component 
rthogonal table 


ne digit component 
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|| ttt Ni <|x}s/<le}a 
e)-lelelelejeLt tt Lt 
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SHARP 
itl SPEARMAN RANK ORDER CORRELATION PROGRAM NO. 
Title = COEFFICIENT p4—B—22 
[ Formula ] 
Regarding the rank order just like measured values, this program is intended to find the 
correlation coefficient. 
6S (xi~yi)? 


rs = ]— 
n’-n 


In the equation above, x; and y; are rank orders, and the identical rank orders should be 
settled to a mean value. For instance, if the third rank is occupied by two samples, the mean 
of 3 and 4, namely 3.5, is taken; if there are three samples in the same rank, the mean of 3, 4, 
5, namely 4, is taken. 


The test should utilize the-fact that 
Ts nh— 2 


t=" 


conforms to t-distribution of n—2 degree of freedom. 


The critical region should be determined by the right side test. 


[ Example ] 


| Operation ] 


CLOAD YB22Yv 


Input 
(SHFT R= 8.338333 E~-01 












Title | SPEARMAN RANK ORDER CORRELATION PROGRAM NO. 
© COEFFICIENT ee 


Memory content 














10: "A" :N=0-S=0 

20: INPUT "X="'7X 

30: INPUT "Y="7Y 

40: Z=X-Y:S=S+Z*Z 

50: N=Nt+7:GOTO 20 

60: "BM :R=1-6*S/ (Nx (N*N=1) ) 
70: N=N-2 

80: PRINT "“R="-R 

90: PRINT "T=",R*S(N/(1-R*R) ) 
100: PRINT "DF=",N 


¢|=[2]o[a/m]o/o]a/>| 
- =I 


(xi—yi)? 






= 
ye eS Pees bea 

saan Dea al Mw [7 

| 

Xe 


P| TT TT IN| <|x/8]</¢]4[0]2/0]0/o]z/2/r|) 


SHARP 


‘ ; PROGRAM NO. 
Title ANGLE CALCULATIONS 


{ Formula ] 


Inputting angles in degrees, minutes, seconds, the angles are added, subtracted, multiplied, and 
divided. This program also multiplies and divides by multiples and divisors of integer. In this 
case, the angle is expressed in (degrees. minutes-seconds). 

In the case of subtraction, inputs are to be entered in negative numerals. The limit of digits is up 
to 4 digits of the integer part in the total angle expression, and up to 2 digits in multiples and 
divisors. 


The second unit in display is rounded off, but all the digits are stored in the calculator. 


{ Example ] 
1238°45'12"+54°32'10" — 80°20’ 10” =147°57' 12" 
147°57/12"+3=49°19/04" 
X8=147°57'12" 


{ Operation ] 
C’ LOAD-“C 1" 


(A) program: For angle totaling 
(B) program: For angle division 


{C) program: For angle multiplication 


















PROGRAM NO. 
Title ANGLE CALCULATIONS 


i Memerpecntene. fs =~=~<~*<“‘“‘ iC‘ i‘i‘ié‘“ SS;*‘ i i< 73 Dt content 





















10: "“A':T= 0: DEGREE 
20: INPUT “A= "7A 
30: T=T+DEG A 
40: GOTO 20 
50: "B':B=T:GOSUB S00 
60: GOSUB 600 
70: C=B:INPUT "/ "3D 
80: T=T/D:B=T:GOSUB S00 
90: PRINT Ce"/"ZUSING “#HHE' 2D e"="Z7USING “HA 
A# HHHH" 7B 
100: END 
110: "C":B=T:GOSUB 500 
120: GOSUB 600 
130: C=B:INPUT '"'X "3D 
140: T=T*D:B8=T:GOSUB 500 
150: aie Uses "HHEH HHHHE' CO" X" FUSING “HH 
#';7D2"="7USING “#H#HHH HHH" 7B 
160: END 
500: B=SGN BxINT ABS CDMS (B+SGN B*.00014)*E 
4)/€4 
510: RETURN 
600: PRINT USING “##### HHHH' FS "TOTAL=",B 
> RETURN 





id 


SHARP 


PROGRAM NO. 
Title OPEN AND RADIATE TRAVERSE a ee 


[ Formula ] 


A) Open traverse Input direction angles at starting point and 
coordinates, then included angle at each point 
and distance, and find the direction angle and 
coordinates. 

B) Radiate traverse 
XA 
YA 
Direction angle: a; =a; + ; + 180°—( 360°) 
Coordinates; X; =Xj;-; +1; cosa; 
Y¥;=Y,;-,+/; sina, 


[ Example] (Open traverse) 


110°20°30" 250°S/15"\ 
a 
00°10" 10" 71. 234m 

; eer ™y, 


X= 100 X,= 148.1825 X,= 130.0806 
Y=100 Y,=125.4477 Y2.= 195.4664 


X= 245.2350 m 


(Radiate traverse) 
Yi= 221.5894 m 


| 
[ Operation ] 110° 20’ 30”; 


95° 10’ 20” 
C LOAD VC 2 (ute 2 X,= 241.7746 


Y2= 257 .6988m 


{A] program: Open traverse 71. 234™ 


123° 45’ 12” 


B : iate t 
(B) program: Radiate traverse X=200m 


Y=200m 


NOTE) Coordinates are expressed by rounding off the 5th decimal. 





Display 


i pem al | RADIATE — 
}2 (TA) 110 z080(EuteA]] TA = 110 .2080 12|(TA)110,2080 ENTER) | TA = 110.2030 a 
3 ](XA)100 (eure ro XA = 200 

















s[oxAytoo tae] vA= 100 (A200 
[sata] B= 100.1010 fs[m sue anal] B= 95.1020 
of 50.128 = 80.128 href Tosnieaena c= 50.108 | 
fs] (ewren)| 143.1825 125.4477 ||(X.¥) 18 (Enter) | 245.2350 221.5894 


8] ENTER Repeat from step 5 on. [J [19 Repeat from step 15 on. 
Ce jf CT 

































; PROGRAM NO. 
Ti P4—-C-2 


tle OPEN AND RADIATE TRAVERSE 
Memory content 
PAT | 


















10: "A'SPAUSE "OPEN":I=0:GOTO 30 

20: “BY:PAUSE "RADIATE':I=1 

30: DEGREE :INPUT "TA= "ZAs"XA= "7B-"YA= "7 
C 

40: INPUT "B= "7D,/"L= "7E 

50: F=DEG A+DEG D+180 

60: IF DMS F>=360LET F=DEG (DMS F-360): 
GOTO 60 





70: G=B+ExCOS F:H=C+E*xSIN F 
80: F=INT CDMS CF+.00014)*E4) /E4 
90: PRINT USING "###HHHH HREM ZAR", F 
100: PRINT G-H 
110: IF I=QLET A=F:B=G:C=H 
: GOTO 40 


Discriminant 


—_ 
wd 





Pt TT IN| </x[8]<[e[4[o)/2/o/v[o/z/e/r|>]/¢/-|z]o]-/m]/ clo] 


SHARP 
: PROGRAM NO. 
Title | CLOSED AND FIXED TRAVERSE (COMPASS ULE) een 


[ Formula ] 





After inputting the difference in coordinates, feed the 
included angle (corrected) at each point and distance, 
and find the error of closure in latitude and departure, 
sum of distance, and accuracy. Also, using the result of 
the calculation of error of closure, this program distributes 
the error of coordinates according to the compass rule. 









Esror of closure in latitude SAX; =EX 


Error of closure in departure SAY; =EY 










Sum of distance Sl; 
Accuracy S1;7V (SAX; )*#+ (SAY; )? 
Corrected total latitude Hk era ce fe EX 

















Corrected total departure Y,;=Y,., t+ AY; + bi EY 


i 










Error of closure in latitude 5.968 m 
Error of closure in departure 7.542m 
39 
















Sum of 
distance 376.129 








Om 
78.196 
162.416 
71.107 





















110°10'10" 
55°15'40" 

290°36' 

230° 


85.123m 
105.05 
95.5 
90.456 


60°10/10" 
125° 5/30” 
§5°20'20" 
119°24' 

































{ Operation ] C LOAD VC 3 V (wer 


(TA)230  (enTeR|| TA = 230 ae 
13 
4 













'3](AX) 0 (EnteR] DX = 0 XA—XB 


5 | (B, 60.1010 [ENTER] B = 60.1010 | = 90. | 
(7 ,)85.128 (Ewter)| L = 85.128 A= 230 .0000 —— 














mn 








] (EteR]| A = 110.1010 | Ca) (sHFT] (B}) | EX= 5.9680 


(B,)125 0530 B = 125.0530 ie] = QareRJJ EY= 7.546 
[19 
29 









o 




















o 
fas] 
= 
= 
m 
= 


(22) 105.05 (ENTER]} L = 105.05 
(ENTER!) A = 55.1540 





SHARP 


7 PROGRAM NO. 
Title CLOSED AND FIXED TRAVERSE (COMPASS RULE) 


(A] program: For traverse starting 


(B} program: For error calculation 


iC] program: For coordinates output 


(Fixed traverse) XB=59.579 


| YB=71 .107 


119°24’ 
55° 20/20" 
TA= 230° 
60°10/10" 
125°5 '304 


In this case, input as follows: 


AX = XA — XB = — 59.579 
AY = YA—YB=~— 71.107 
l, =0 


Direction 


Distance angle 
230° 


= 4.5330 

= 3.7279 

= 285.673 
ACCURACY = 39 





60°10/10" | 85.123m | 110°10'10" 


—30.7009 78.1962 





125° 5'30” | 105.05 55°15/40" 


27.4985 162.4155 





55°20'20” 95.5 290°36' 


59.5790 71.1069 








119°24' 0 230° 





NOTES) eTo round off the coordinates, the Sth decimal is discarded. 
elf the accuracy is infinite (°°), it results in an error. But the operation can 
be progressed to a next step after pressing CL key. 


e There is not limit to the number of measure points. Each piece of data, 
however, should be inputted twice correctly. 


7 Note 


(Example of 
+closure) 





Display Input 
(£3)95 5 (ENTER) 





L= 95.5 
59.5792 
B= 119.24 
L = 90.456 
—0.0000 








71.1070 





YA=0 
|B = 60.1010 
L = 85.123 
—30 .7008 


B= 125.0530 

















—0 .0000 





78 1962 











8 CZ 105,05 


L= 105.05 








27.4937 





10 |(B355. 202 








B= 55.202 


162.4155 | 
























F PROGRAM NO. 
Title CLOSED AND FIXED TRAVERSE (COMPASS RULE) 


Alt 


TA 
AX XA 






10: "A" :DEGREE :D=0 

20: INPUT "TA= "FZA/"DX= "ZB,"DY= "7C:G=A 

30: GOSUB 500 

40: PRINT USING “#H#HAH#H HAHAH" Zs" A=",G6:G0TO 
30 

SO: "B":PRINT "EX=",B 

60: PRINT “EY=",C 

70: PRINT "TL=",D 

80: H==-B/D:I=-C/D 

90: PRINT USING "H#H#H#H#H#HHH" 7 “ACCURACY=",1//(H 
*H+I*I) 

100: END 

116: "C':G=A:INPUT "XA= "ZB, "YA= "FC 

120: GOSUB 500 

130: B=B+H*F sC=C+I*F 

140: PRINT USING “#H#HH#H HHH" FBC 

150: GOTO 120 

500: INPUT "B= “ZE,"L= "FF 

510: D=D+F:G=DEG G+DEG E+180 

520: IF DMS G>=360LET G=DEG (DMS G-360): 
GOTO 520 

530: B=B+F*COS G:C=C+F*SIN G 

S40: G=INT (DMS (G6+.00014) *E4) /E4 

550: RETURN 

378 






re 
> 











re 






> 


<|[K] xX om | om ~ Mi) Dp 
TFPI] 


CCURACY 













| | | | tt | IN| <|</=[</e[a/o[»/o|s/o[2[s[F [sl ]~|/z]o[=[m[olola| 
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SHARP 






Tit! INVERSE CALCULATIONS OF OPEN AND PROGRAM NO. 
tle RADIATE TRAVERSE p4—C-—4 


{ Formula ] 





Giving coordinates successively, find the distance between two points, direction angle, and 
included angle. 
















(A) Open traverse (B) Radiate traverse 








[ Example ] Bs=240°15 18" 
Xx 
a@3= 116°33'54” 


a= 56°18'36" 






X3= 38m 
Y3= 6m 
as= 180 
@s= 808°41 '24" 















[ Operation ] 


C LOAD VC 4V _ Gutter) 
NOTE) Distance is expressed by rounding off the 5th 
decimal. 
(A] program: Inverse calculation of open traverse 
(B) program: Inverse calculation of radiate traverse 


[trout [Display | Note [| put 
caw [OPEN (1 aera 

p(y 2 ema) 2 a] ten [A= 116.2854 
3}C¥.) 1 enren| y.= 1 et} L = 2.2360 
reo) 4 ral) = ai ra 

is} Repeat from step 9 on. 
18 

W 

0 

9 

2 


ae 
[SHFT] RADIATE ae 
ae 
= 













B= 240.1518 





[aa] 


acd 

Hi a 
oe oe 

pl, wae =s.065 

o 

o 

0 


a a 
(CE oe 
on) 6 am)y=6 sd 


es. = al Calculate radiate traverse 
= ll similarly therafter. 
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| 
| 
| 
| 
| 
















Title INVERSE CALCULATIONS OF OPEN AND 

RADIATE TRAVERSE Pao ead 

Memory content 
Ajit xen | 
Bla} vn | 
cis} x 
Dlatv, 
Els] ax 
Fle] ay 
Gir 
Hie] os, 
ta] Oe 
pa Pe ee es 
[noir 





















10: "A" :sPAUSE “OPEN” :sL=1:GOTO 30 
20: "B"sPAUSE "RADIATE":L=0 
30: DEGREE :K=O:INPUT "X1= "ZA-"Y1= "7B 
40: INPUT “X= "FC,"Y= "7D 
SO: E=C~A:F=D-B 
60: Gal CEXE+FxF) 
70: H=ACS (E/G):IF F<OLET H=360-H 
80: IF K=OLET K=1:I=H:A=C:B=0:GOTO 130 
90: J=DMS CH-I+540) 
100: J=J-INT (€J/360)*360 
110: M=J:GOSUB 500 
120: PRINT "B=",M 
130: IF L=0GOTO 150 
140: I=H:A=C:B=D0 
150: M=DMS H:GOSUB 500 
160: PRINT USING "####H#H HAHA" ARS" ,M 
170: PRINT "L=",G 
180: GOTO 40 
500: M=INT CDMS (DEG M+.00014)*E4) /E4 
: RETURN 





























—_ 
wd 


Pt tT tT | | IN <|<[=[</¢/4[o[2[o|vlol2z/s[r] 
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SHARP 


; PROGRAM NO. 
Title COORDINATE AREA CALCULATION 


[ Formula ] 


Determine the area of a polygon by inputting the coordinates of each vertex, according to the 
equation below. 


2S8= S{ (Xj41.-XK,)CYj;4,+ Y;) } 


[ Example ] 


X\= 2.512m 
Yi= 18.123 m 


[ Operation ] 
C LOAD Y C59 Gita) 


input | Display | Note | 
( 
Poe 


N=4 
(X)2.512 
( 


fe 
islelelalslalsisisl=l | 


3 
Ww 
is 
| 
= 
= 
mn 


ell 


No. of 
vertices 
(Y 18.128 al 

x —7 


(Y 


faa] 
me 
= 
taal 
EJ 


~ 
wY 
— 
= 


ran 
bad 
EI 
= 
= 
aad 
z| 


331 





> 


X17 





lo S| 
aa 
a 
| 
| 


[™ 
. 
= 
NY 
= 
Co 





Title COORDINATE AREA CALCULATION 


Memory content 

Ali] x: 

Bip ye 
el] xm 
DORA 
El xo 
Fle) vo 
isi} ses 
Ck a 



















10: “A'SINPUT “N= “7N:G=0 

20: INPUT "X1= "ZA-"Y1= "7B: E=A:F=B 
30: INPUT "X= “7Ce-"Y= "7D 

40: Gosus 500 

S50: A=C:B=D:N=N-1 

60: IF N<>1G0TO 30 

70: C=E:D=F:GOSuUB 500 

80: S=ABS G/2 

90: PRINT USING “####HHHHH HHRHAH' 7" S="7S 
100: END 

500: H=(€C-A)*(D+B) 
510: G=G+tH 

520: RETURN 

























fos Kd Re 






— 
heed 


<|x/=|<[¢)/a]o/»/o[vJolz[= 
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SHARP 









Tit! DIAGONAL AND PERPENDICULAR AREA PROGRAM NO. 
itle CALCULATION P4—-C—6 


[ Formula ] 











Feed the coordinates at three points 


(1) 

sequentially, and find the area of each 

triangle. 
. Ss = aL (L: longest side of a, b,c) 
where, h is the height, discarding 4th 

i A/ decimal. 

. ; NOTE) Each side length is expressed in 
(3) 


maximum 4 digits in integer part, 
rounding off the 4th decimal. 





[ Example ] 


[ Operation ] 
C LOAD VC 6V 









ENTER 








Xx ? 
fo.) 10 en 2 
WE : 


T 
as aml? ——*d 


aa 
oe 
os 
CRC 
CONC Ee 
mead 
al 
ee 
a 


Input 
ATE 


Display 
TS = 31 .996580 


Repeat from step 2 on. 


aaa A=7.211 B= 8.944 
(enten) | C = 12.166 H = 5.260 
WER) | S = 31.996580 


jslelo[~lolefaleols(=] | 
Slslal=lslaleielsi=| | 










Tit! DIAGONAL AND PERPENDICULAR AREA PROGRAM NO. 
tle CALCULATION P4- CHG 
Memory content 
ip rae ae 
Dis] x | So: xee-ceveFep:¢osue 500 
eis] x A=X:X=G-E:Y=H-F:GOSUB 500 
50: B=X:X=C-G:Y=D-H:GOSUB 500 
Fie) ya: cex 
f@[z| me |r 2 tomer te 
80: IF B>XLET X=B 
Hie] yg: tac aaBecy 2 
fifsp s 100: S=f(1* (I-A) *(1-B)*(I-C)) 
aioli 




















10: "A" :K=0 
20: INPUT C-D-/E-F-GeH 



















110: J=INT ((2*S/X)*E3) /E3 
120: L=X:GOSUB 600 
130: X=L2S=X*J/22K=K+S 
140: L=A:GOSUB 600 
150: A=L:L=B:GOSUB 600 
160: B=lL:L=C:GOSUB 600 
170: C=L 
180: PRINT USING “HHHHH AHA" AS"ZAs" B="7B 
190: PRINT "C="7C7" He"sJ 
200: PRINT USING “##HHHHHHH HAHAHA" S=H"7S 
210: PRINT "TS="2K 
220: GOTO 20 
S00: X=fCX*X+Y*Y) sRETURN 
600: L=INT (L*E3+.5)/E3:RETURK 
393 











> |e 
LiVHUHUUUUUAUG | 













Pt tt tt IN| <[<[s[<[e]a[o[=[o[v[ol2[=[r] 
s(ele(sislslslalslslelel=[sls 
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SHARP 


Title TRIANGLE CALCULATIONS 


[ Formula ] 


PROGRAM NO. 
P4—- C—7 


A) Given two sides and the included angle. Find the other one side, two angle, and area. 


A 
a=V b’+c?—2 be cosa 
1 a®t+ c®—b? 


2ac 






















B=cos~ 





I» 
int 
& 
O 
o 
D> 


C=180—-A-—B 





1 
S=->be sinA 
2 


B) Given two angles and the included side. Find the other one angle and two side lengths. 





A A=180—(B+C) 













a 
b= - sinB 
sinA 








a c= 





: sin C 
sinA 


C) Given three side lengths. Find the area and interior angles. 









A b?+ c?—a? 
2be 
a’+ c?— pb? 


2ac 


A=cos? 









B=cos™! 


C=180—-A~B 




















Input 


SB = 107.287 
SC = 62.052 
A = 89.2910 


r =z 
at a) sy 
13108) 60.208 (ewren | B= 60 208 

f14{© 30.1020EW7EA| C= 80.1020 aa 
E | 
a7 


>) 


ll 
i 
i 


(b) 107.287 
(c) 62.052 
(A) 89.2910 


ra) i (re 
m| || 
is a! 
ra|||rea 
sa} |= 


| 


[aa] 
=z 
= 
Cal 
a 














Reaffirmation 
possible 






fele[=(slelelalels[=| 


EATER | 
| OSA 123 4565 Hs) TA 89.2910 
aa = 60.2 fs| tata] = 25 [| 
oe io] @ra[sc=—ee.osis || 
| 
| 


= 
= 
= 
Coal 
= 
| 
zt 


Reaffirmation [1] 
are] RO 





SHARP 
iP eore PROGRAM NO. 
Title TRIANGLE CALCULATIONS P4—-C—7 


{ Example ] 















62 .052m 





89°29'10" 





107 .287m S = 3828 .5526(m?) 





30.1020 






60.2030 






[ Operation ] 
C LOAD VC7Y 






NOTE) Side length and area are expressed by discarding the 5th 
digit. 






(A) Program: Calculation with two sides and included angle given. 





program: Calculation with two angles and included side given. 





(C) program: Calculation with three side lengths given. 









[et [esi Wt 
a a 
afar. Sa a7 TY 
[ior aera Se Tor a7] 
a ee 
Reaffirmation = 
ft ae 























pelo [feo =| 





Title TRIANGLE CALCULATIONS 


Memory content 


phe 














































10: "A":DEGREE :INPUT "SB= "7B,/"SC= "7C,"A= 
"3D 
20: D=DEG D 
30: GOSUB 500 
40: GOSUB 600 
50: Gosus 700 
60: F=180-D-E 
70: PRINT USING “#H##H#HH HHH "SAH", A 
80: G=E:GOSUE &00 
90: PRINT "B=",G:G=F:GOSUB 800 
100: PRINT "C=",G 
110: PRINT "S=",S:GOTO 70 
120: "B':DEGREE :INPUT "SA= "ZA,"B= "7E,"C= 
Mr = 
130: E=DEG E:F=DEG F 
140: D=180-E-F 
150: B=A*SIN E/SIN D 
160: C=A*SIN F/SIN D:GOSUB 700 
170: G=D:GOSUB 800 
180: PRINT USING “H###HHH HAHA" A=",G 
190: PRINT “SB=",B 
200: PRINT “SC="-C 
210: PRINT "S="/S:GOTO 180 
220: "C":DEGREE :INPUT "SA= "7A-/"SB= "7B,"'SC 
= uC 
230: D=ACS (€(B*B+C*C-AxA) /2/B/C) 
240: GOSUB 600 
250: F=180-D-E 
260: GOSUB 700 
270: G=D:GOSUB 800 
280: PRINT USING "####H#HH HHH" Z"ARH",GIG=E: 
GOSUE 800 
290: PRINT "“B=",G:G=F:GOSUB 800 
300: PRINT "C="-G 
310: PRINT "S=",S:GOTO 270 
500: A=S(B*B+C*C-2*BxE*xCOS D) sRETURN 
600: E=ACS ((A*A+C*C-BxB) /2/A/C) sRETURN 
700: S=B*eCxSIN D/2:RETURN 
800: G=DMS (G+.00014) :RETURN 
584 









—, 
~ ~ 


Pt Ty | tT IN| <|x}8]</¢/4/@/2/0]0/0]/2/2/r |=] ¢/-|z/0) 
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SHARP 






Titl POINT ON STRAIGHT LINE AND PARALLEL PROGRAM NO. 
itle MOVING POINT P4- C-8 


{ Formula ] 





Given coordinates of two points, moving distance, and vertical distance. This program find the 
coordinates of the point of parallel movement. 







NOTE) The coordinates of the result are given 






G 7 in 5 digits of integral part, discarding 
a _- & 5th decimal. 
Xp 
1 Vp 
+h 





[ Example ] 








X28 .625m 
Y2=6.512m 







Xp = 2.0057 m 
















Goxim Y p = 3.7287 m 
ines Y | Xq= 1.14138 
Yq =4.2815m 






Xq! = 2.8701 m 
Yq! = 3.2258m 







{ Operation } 
C LOAD VC8 V 













[input | Display [Note | 
ma at. 
fee oll 


(Yp2 Enten|| Y:= 2 
I 


>) 


8am x= 8d 
(Y2)6.512(Ewren| Y.= 6.512 


ENTER 

(ENTER}) L 
1 wale | 
ee (eae 
Ce 
ee 


—1l11— 


(xp, yp) 
) 











Title POINT ON STRAIGHT LINE AND PARALLEL PROGRAM NO. 
MOVING POINT eee Oe 


Memory content 
Xy 


i 


: "A sDEGREE sINPUT "X1= "ZA-,"Y1= “7Be"X2 
= "7C,"Y2= "7D 

: X=C-A:Y=D-B 

© Caf CX*X+Y*Y) 

: X=ACS (X/C) SIF Y<OLET X=360-X 

: INPUT “L= “7E,"H= “7F 

: G=ExCOS X+A:H=E*xSIN X+B 

: PRINT USING “##HH## HHHAU "Ps" 7G7H 

* I=X+SGN Fx9OSF=ABS F 

: J=FexCOS I+G:K=F*eSIN I+H 

: PRINT "Q:"sJ7K 

: GOTO 50 


oa] >| 
=I 


—_ 
ot ~d 


va 
~ 


mm | x x : aa 
pean) 


as) 


o 


2 


| 
Ee 
iF 
|G 
/H 
mT) 
pK 
|M. 
LN 
0 | 
P| 
Ky 
RI 
|S 
cl 
Ka 
|W) 
x: 
2 | 
i 
La 
he 
4 
oa 
ES) 
ed 
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SHARP 
. PROGRAM NO. 
Title | STADIA CALCULATION 


[ Formula ] 





This is the calculation method using the stadia hair of the transist. This program computes the 
horizontal distance S and ground height GH from the stadia reading length and angle of elevation. 






S=KI! cos’a+C cosa 







AH= KI sin2@a+C sing 





K: stadia multiplier constant 





C: stadia addition constant 
iH: machine height 







GH=AH+ #H—-l, 


{ Example ] 










K=100, C=038 +fH=1 
£,=1.625m a= 8°47'> S$=129.707 


1,=0.962m GH= 20.079 
13=0.3m 







[ Operation ] 





C LOAD VC 9Vv 
NOTE) Distance is expressed by discarding the 5th decimal. 











(A] program: For input of constants 


(B) program: For input of survey data 


ll 
o eee 
K = 100 initial setting] 12] (7 .)1 .625 (ewten}] La= 1.625 
sos wale=s | i 
fcs.8 arafs= 8 














>) 












= lw] nm 


(¢H) 1 (twtea}| LH = 1 b= ees 
@ ear wu A=8aT 

SS. 
a 

aes 

een ee 

aay 








| 


| 

rf ra] CH= 20.0790 
a cae ee 
ee a ee 
a 2 a eee 













PROGRAM NO. 
Title STADIA CALCULATION 


c caMatigey entente eee content 


















> "AN SINPUT "K= "ZA,/"C= "7B, 

END 

: "B':DEGREE :INPUT "L1= "sG,"L2= 

= "SI," A= He | 

40: J=DEG J:L=ABS (G-I):C=COS J 
50: D=AkL*C*C+BxC 
60: E=A*L*SIN (2%3)/2+B*SIN J 
70: K=E+F-H 
80: PRINT USING "###H##H HHH So" 
90: PRINT "GH="4K:GOTO 80 

: END 
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SHARP 


‘ PROGRAM NO. 
Title SINGLE CURVE CALCULATIONS 


This program determines each element of a single curve by giving intersecting angle IA and 
radius R. Also, the deflection angle and chord length are found by giving the curve length. 





[ Formula ] 



















Tangential length TL=R tan ie 
2 





Curve length CL=R—— IA 
180 







Chord length L=2R sin 





Exterior line length SL=R( sec es 1) 
2 






Middle ordinate M=R(1-—cos a ) 













Re ZeTA 
Area ca 2 ere 









Deflection angle 







Chord length 1;-=2Rsiné; 













[ Example ] R= 100m TL= 32.814m 
IA = 36°20! CL= 63.414m 

= 62.356m 
SL= 5.246m 
M= 4.985m 
S = 208.2717 m 









[ Operation ] C LOAD V C 10 fnteh} NOTE) Distance is expressed by discarding 
the Sth decimal. 





(A) program: (R,IA) input 
program: (R,L) input 


[most [Display | note [| trput | Display 
1 
(R)100 (ENTER Ro =10000 ep R100 — (ENTEa 100 
= 13] 
14 
15] 















EJ] 
ran 


H R 

3] (1 A)36 .20(euTéal] 1A = 36.20 13} (L.)10 10 i 
ap | TL= 32.8138 = 2.5153 L=9 .9958| | (3,1) 
s|___ wa] c= 8. 








= Es 
Pl mlz 
Hey di 





| 
NTE 


Reaffirmationyg [ Repeat 
possible hy 
17 

















[aa = 2.200 Ph 
ee 
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Title SINGLE CURVE CALCULATIONS 


Memory C Memory content [| © 
IA/2 
CL 























10: "A'SDEGREE sINPUT "R= "ZA,"IA= "7B 
20: B=DEG B:C=B/2:D=A*TAN C 
30: E=A*xIC/180*B:F=2*eAxSIN C 
40: G=A*(1/COS C-1) sH=A*(1-COS C) 
SO: I=A*A/2*0C*B/180=-SIN B) 
60: PRINT USING “###HH#H HAAR" TL=",0 
70: PRINT "CL=",E 
80: PRINT “L=",F 
90: PRINT "SL=",G 
100: PRINT “M=",H 
110: PRINT "S=",1 
120: GOTO 60 
130: “B"sDEGREE :INPUT “R= "ZA 
140: INPUT "L= "ZF 
150: K=90*%F/7C/A 
160: J=2xAxSIN K 
170: K=DMS (K+.00014) 
180: PRINT USING “#### AHHH" S“AS"FKFUSING "# 
AHHH HHAANS Lo" 7 J 
190: GOTO 140 
323 


jsl[aieieisieislslselslalalelsisl=lelele|~lelealalels| 


eee deel 
eee eee el 
Pe Seca 
bee 
eee 
Me ae ee 
ae 
feet eel 
eee 
es, 
eee end 
fee 
ees: 
ee 
eet 
Dieeterees cad 
ae 
eee eed 


| Ty TT IN|<|x}=]</¢]4)@/a/0/9/0/2/2/r]x/¢/-|z/0/\m/olo]o 
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SHARP 


| Title CLOTHOID CURVE 


[ Formula ] 


PROGRAM NO. 
P4-C—-11 


Of the clothoid curve elements, A and R, or A and L are inputted, and X, Y,7, etc. 
are determined. 


Y 


1” 
599040 


[2 


3456 
18 
-+ —-— - -——_— 
7040 1612800 
L 180 


T= 
ua 


2 


) 


x XM=X~—Rsinr i 
TL=X~—Ycotr 
TK=Y>cosec t SC=Y>*cosec 0 


Shift AR=Y+Rcos r—R 


Tangential angle 6 = tan 


[ Example ] 


A= 100 
R = 200m 
L= 50 


X = 49.922 
Y= 2.081 

t =7°09'43" 
SC = 49.965 


[ Operation ] C LOADYC11Y 


Input 


Sard 

Sc 
? 

em 


| 
= 2 | 
[ae 2 oo ORT] 
TT cc 

1 iEWTER)| XM 24.9869 | | 
, a 

a 








TE 

| ata ar 

Cn a 
mare wees | 








ER 
ENTER 
CT a 


=i 


XM = 24.987 m 
TL = 33.361 m 
AR = 0.521m 
0 = 2 °23'18" 
TK = 16.692 


NOTE) Distance is expressed by discarding 
the Sth decimal. 


i 


(A) 100 [ENTER 


S 
Oa amis 
R 200 .0000 


? 
v Similarly thereafter 













Title CLOTHOID CURVE 


Memory content 
x 














10: “A':L=1:GOTO 30 
20: "B":L=0 
30: DEGREE :INPUT A 
40: IF L=QINPUT "L= "7D:B=AxA/D:GOTO 60 
50: INPUT B 
60: C=A/B:D=A*A/B 
70: USING “#HH#HHH HHAH 
80: IF L=OPRINT "R"7B:GOTO 100 
90: PRINT “L'"7D 
100: X=A*C*(1-C€44/404048 /3456-C%12/599040) 
110: Y=A*C%3/6* (1-C€44/564C%8/7040-C412/16128 
00) 
120: PRINT X-Y 
130: C=D*90/B/%:K=C:GOSUB 500 
140: PRINT "T'7K 
150: E=X-B*eSIN C:PRINT "XM"7E 
160: G=X-Y/TAN C:PRINT "TL''7G 
170: F=HY/SIN CzPRINT “TK"sF 
180: H=Y+B*COS C-B:PRINT “DR™7H 
190: I=ATN CY/X) :K=1:GOSUB 500 
200: PRINT “D'-K 
210: J=Y/SIN I:PRINT "SC"; 
220: END 
: K=DMS (CK+.00014) :RETURN 


TK 


im [om [em | m [oe | ve | = | 


Di ee 

L 

M 

x 
Y 














Discriminant 


—_ 
od 


Pt Ty yt TL IN| <|x/e}<]e]4]o)2/0|/0/0)/2/8[r/x/¢|-|z/o/4/m[olo[a]> 
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SHARP 


Title COORDINATES CONVERSION 


[ Formula ] 


PROGRAM NO. 
P4-C—-12 


This program converts the local coordinates into original coordinates, and vice versa. 












X=Xot+t x cos @-y siné 
Y=Y,+tx sin 6+ y cos 6 











x=(X-xX,) cos 6+ ( Y—-Y_o) sin 6 
y=(CY-Y,) cos 6-(CX—X)) sin 0 






Y  @ should be negative if counterclockwise. 





[ Operation ] 









C LOAD VC 129 






NOTE) Coordinates are expressed by discarding the 5th 
, decimal. 









For input of constants 






(A] program: 


program: Original coordinates calculation 








program: Local coordinates calculation 


input Note | 
aor ampeT i 
es ie 
a 

een 

ioe 












Display 


X) 16.762 |ewTER]} X = 16.762 
YT 20a] Y= 17207 | 
6.9998 7.9998 


Input 


=| (6) 


ran 


; 


oN 


Tr) 


ENTER | SY= 8 





cae a 
da 
| ~2| [=I 
el 


(X,¥) 


ca Os a 


_ 
~~ 





16.7621 17.2071 





Title COORDINATES CONVERSION 


Memory content 


ALi] x 

Biz] ve 
Cb 
Dist xe 
E{s| vy» | 
REG) acces deuce 
i ae 
as 
ifs 
sf 



















10: "A" :DEGREE sINPUT "XO= “7A-"YO= "sB-"A= 









7C 
20: C=DEG C:END 
30: "B'SINPUT "SX= "7X-"SY= "7Y 
40: D=A+X*COS C=Y*xSIN C 
50: E=B+x*xSIN C+Y*xCOS C 
60: GOSUB 500 
70: END 
80: “"C™SINPUT "X= "FX,"Y= "7 
90: X=X-A:Y=Y~-B 
100: D=X*COS C+Y*SIN C 
110: E=Y*COS C-X*SIN C 
120: GoSuUB 500 
130: END 
SOO: PRINT USING “####H#H HHH" 7D-E 
: RETURN 

























PT tT Tt IN| <|}s/</¢[4/a|2/0/0/0]/2/2/7 
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SHARP 


; PROGRAM NO. 
Title CHAMFER CALCULATION Sie eetaen 


{ Formula ] 
By specifying points (1), (2), (3), and 1 or L, 
this program determines the side length L, 


chamfered area, and coordinates of points P 
and Q. 


L=2-. asa 
2 


haf UG a cette 
ere: cot = 








The order of points (1), (2), (3) may be inverted 
to (3), (2), (1), but the positions of P and Q are 
also inverted in this case. 








{ Operation ] 


C LOAD Y C 139 (até) 


(A) program: / input NOTE) The distance, area, and coordinates are 


program 1 input expressed by discarding the Sth decimal. 








Display | Note 





+. 





(XK) 5 ATE 
(Y.) 1 [ewe 
(X,) 1 ENTE = In this case, input is in the case of 
5 ai : (A), and input (L) in place of the 
(X3) 4 NTE 
(Ys) 10 (EwTeR} . = 1.576 

Ch) 1 A] = 0.9997 
= 0.4848 
























































Similarly thereafter 









are: COMER CREO 2 oe Oa. | CHAMFER CALCULATION 


apy = 


























10: “A"’:M=0:GOTO 30 
20: "BY" sM=1 
30: DEGREE sINPUT "X1= "ZBe"Y1= "FCe"X2= "7 
D-"Y2= "FE,"X3= "OF, Y3Z= "7G 
40: IF M=OINPUT "SL= "7H:GOTO 60 
50: INPUT "L= "J 
60: X=B-D:Y=C-E:GOSUB S00 
70: I=X:X=F-D:Y=G-E:GOSUB S00 
80: A=ABS (X=I)/2:USING "HHHHHHH HHH" 
90: IF M=OLET J=2*H*SIN A:GOTO 110 
100: H=J/2/SIN A 
110: If M=OPRINT “L="7J:GOTO 130 
120: PRINT "SL="7H 
130: K=J/2:L=ABS (K*K/TAN A) 
140: PRINT "S="-L 
150: GOSUB 600 
160: I=X:GOSUB 600 
170: END 
500: A=fCX*X+Y*Y) 
510: X=ACS (X/A):IF Y<OLET X=360-X 
520: RETURN 
600: N=H*COS I14+D:0=H*SIN I+E 
610: PRINT N,O 
: RETURN 


Nw 


> 
* 
a) 


mh 
lsleieieisisisislalslaialslalsl=lslele(~leolalale|s| 


Pt tT | IN| <[x/ 3} </¢]4]o/2]0/ 0) 0/2/28) F|a]/¢/-|z[o/ 4) m/o/0/0| 
i 
a 
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SHARP 


INTERSECTING POINT AND PERPENDICULAR 


Title CALCULATION 


PROGRAM NO. 
P4—~C—14 


[ Formula ] 


The intersecting points in the diagrams above are found by giving the coordinates and 
direction angle. 
[ Example ] 
X;=6 j= 153°26'06” 
Y,;=2 x 


X= 2.615 


Y= 3.077 
X,=4 


Y,=4 


X3;= 4 


[ Operation ] 


C LOAD VC 14 7. (mm 


NOTE) Coordinates are expressed by discarding the 5th 
decimal, 


Display 


i 


B 
5 


| 


re] Se 
i koe 
—] 0 
ale 
is ee) 
PES 
yl 
=] No 


~ 


r 


X2) 5 


(Y.) 4 {EWTER| 
aa 
Y 


E 

E 
<| 
a] Oo 


iX) 


= 








(Y,) 4 EWTER| 








fefeltql[—Te fe] 
i 


ny 
if fa 
ioe ole ory 


ps 


= 


Y.= 


3.9999 2.9999 





SHARP 
Tit! INTERSECTING POINT AND PERPENDICULAR PROGRAM NO. 
tie CALCULATION Pia apd 


(A) program: Input of 4 points 





(B) program: Input of 2 points and 2 direction angles 
(Cc) program: Input of 3 points and | direction angle 


[D) program: Perpendicular. 

















| Ys= 


| A,= 153.2606 


3.9999 2.9999 | (Xp,Yp) 





















Tit! INTERSECTING POINT AND PERPENDICULAR PROGRAM NO. 
itie CALCULATION Bigere 4a 


Memory content 






























: "A':GOSUB 600 
20: INPUT "X4= "7H,"Y4= "ZI 
30: GOSUB 700 
40: X=H~F:Y=I1-G:GOSUE 500 
50: K=X:GOTO 160 
60: “B':SINPUT "XT= "-JB-"Y1= "sC,"Al= "“2J 
70: INPUT "X3= "FF-"Y3= "7Ge"AS5= "7K 
80: J=DEG J:K=DEG K:GOTO 160 
90: "C':GOSUB 600 
100: INPUT “A3= “7K 
110: K=DEG K:GOSUBS 700 
120: GOTO 160 
130: “D'":GOSUB 600 
140: GOSUB 700 
150: K=J+90 
160: X=TAN (J+E&-4) :Y=TAN (K+E-4) 
170: A=CX*B-Y* F~C+G) /(X-Y) 
180: B=X*(A-B)+C 
190: PRINT USING “####### AHHH" FZ A-B 
200: END 
500: L=fCX*X+Y*Y) 
510: X=ACS (X/L):IF Y<OLET X=360-X 
520: RETURN 
600: INPUT "X1= "-B-"Y1= "eC-"X2= "ZD-"Y¥2= " 
ZEA XS= “FF "Y3= "7G 
610: RETURN 
700: X=D-B:Y=E-C:GOSUB 506 
710: J=X:sRETURN 
439 


[¢[=|z[o]-/m/o/ a) 


i 
Slale(slsi=[slslelslalajelslsl=lslel@[~|olalale| 





[a[o/alo[vjolz/s|r |x| 


[<[=<[=]<|¢ 
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SHARP 










Titl A POINT AT A CERTAIN DISTANCE FROM TWO PROGRAM NO. 
ItlIE ~—s POINTS (INTERSECTING POINTS OF TWO CIRCLES) | P 4- C—15 


[ Formula ] 








Given coordinates of points (A), (B), and 

distances 1,,1,. This program find the 
Pp coordinates of points P and Q. 
Points P and Q are discriminated by 
changing the value of 7, to positive and 
negative. When /, is positive, point Q 
is determined; when negative, point P is 
found. 





Xx 














(Positive) 









[ Example ] xX ® 


X = 2.4832 
@C y= 93415 
X,=1 —8.5 
Y,= 
Ox /5=|2.236 
= at ay X = 0.8167 
aie @CY =~ 9915 
™~ 
X2=- 1 









[ Operation ] 






Vv Vv 
C LOAD ele ares) NOTE) Coordinates are expressed by 
(A) program: For calculation of intersecting point discarding the Sth decimal. 






Measure points should be from 
No. | to No. 8, in principle. 


program: For registration of coordinates 
CoC 


h=1 [12] ADI (ewer) | 4% A = 1 

1 | %.B)2 ENTER) 
| 
115] (073) —3 .5 (ENTER) 
Registration 










































LB =—3.5 
NM =3 
2 .4832 2.3415 (Xp. Ip) 


(NOTE) With this key, registration ends. 










































Register necessary points, however, up 
to 8 points including result 





















Titl A POINT AT A CERTAIN DISTANCE FROM TWO PROGRAM NO. 
tie POINTS (INTERSECTING POINTS OF TWO CIRCLES) | P4—- c~—15 


Memory content 








: "B'SINPUT “NO= "7B 

20: INPUT "X= "-7C,"Y= "7D 

3Q: A=B:GOSUB 590 

40: ACA) =CrA=A+12ACA) =D 

50: B=B+1:GOTO 20 

60: "A':DEGREE sINPUT "NOA= "ZB,"NOB= "ZC," 
LA= "'0,"LB= "CE, NO= Lae 3 

70: A=8:GOSUB 500 

80: G=ACA) :A=A+1:H=ACA) 

90: A=C:GOSUB 500 

100: I=ACA) sA=A+1:J=ACA) 

110: I=I-G:J=J-H:B=f(CI*It+de«J) 

120: C=ACS (I/B):IF J<OLET C=360-C 

130: A=ACS ((D*D+B*B-ExE) /2/D/B) 

140: C=SGN ExA+C 

150: G=D*COS C+GsH=D*SIN C+H 

160: PRINT USING “###H#HH AHH"? GH 

170: A=F:GOSUB S00 

180: ACA)=G:A=A+1:ACA) =H 

190: GOTO 160 

A=2% A+9 sRETURN 










weet + 
I 
> 

















[<|¢|4/a[alo|vlo[z/=/- [ale |~-[z]o/[m[o/o]a) 
e(3(3[8[=[slelalslelals[sls[=lelel[=|=[e[e [s/o 





N|~</></=| 
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SHARP 


Title CITY BLOCK VERTEX CALCULATION 


[ Formula ] 


PROGRAM NO. 
P4—C-—16 


Given city block points (1), (2), (3), 
-++, and half widths of road h,, hz, 
h3,---as shown. The coordinates 
of vertex P, (Xpj;, Ypj) are deter- 
mined. Depending on the sign of 
h, the calculation may be done on 
either right side or left side of the 
running direction. 

For the intersecting point with the 
block line, 0 should be inputted as 
h at the corresponding point. 





















[ Example ] 


( XP, =—0.4524 
YP,= 3.6688 













( XPo= 1.9999 
YP,= 6.1213 








[ Operation ] 
C LOAD VC 16V NOTE) Coordinates are expressed by discarding the 5th 


decimal. 
TT eeut | Disoiay | Note 
1] ist) | 
2 | 
3 | 
4 
5 
6 

















a 











a2 (are are) 
(Y)1 ENTER 
(ADI ENTE 

(X2)1 ENTER} 











































Title | CITY BLOCK VERTEX CALCULATION 


Memory content 


PROGRAM NO. 
P4—C-—16 


















10: "A':sDEGREE sINPUT "X1= "ZA-"Y1= "7B-"H1 
= LE 

20: INPUT "X2= "sD-"Y2= “FE-/"H2= "7 F 
30: INPUT "X= "7G-"Y= "7He"H= "FI 

40: X=D-A:Y=E-B:GOSuB 500 

SO: K=X:X=G-D:Y=H-E:GOSUB 500 

60: Y=X+90:X=K+90 

70: A=At+C*xCOS X:B=B+C*xSIN X 

80: L=D+F*eCOS Y:M=E+FaSIN Y 

90: X=TAN (X-90+E-4) :Y=TAN CY-90+E~4) 
100: O=CX*A-Y*xL-B+M) / (X-Y) 

110: Y=B+X*(0-A) 

120: PRINT USING “##H#HHHH HHH" ;70,-Y 
130: A=D:B=E:C=F :D=G:E=H: F=I1 

140: GOTO 30 
500: Jaf CX*Xx+Y*Y) 
510: X=ACS (X/J):IF Y<OLET X=360~-X 
s RETURN 


[¢[=[z[o]=[m]o] 0) 
Slelele[slelelale 


Sd ase oe ie ae oe ec a co 
C) @ 











[a[/a]o|vlo|z/zir [>| 


AX ,O,4+90,m, 
AY 6.490 .m 1D) 


[~<|>=<[={<[¢| 
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SHARP 
41 DIVISION INTO SPECIFIED AREA BY SPECIFYING | PROGRAM NO. 
Title A POINT IN A POLYGON P4—C-17 


[ Formula ] 


According to the segment passing through point 
(1), the coordinates of point P to yield a specified 
area So are found. 

The calculation may be either clockwise or 
counterclockwise. 





[ Example ] 





[ Operation ] 


C LOAD VC 179 __ (ENTER) 
NOTE) Coordinates are expressed by discarding the Sth 


























Title DIVISION INTO SPECIFIED AREA BY SPECIFYING PROGRAM NO. 
tie =A POINT IN A POLYGON Ey ee coer 


Memory content 





tac 
o 


Mu | P| > pIlploale|m|* 
tbo nN wd re Sd ° ry ~ ~ 
nlwle ae 

fo) 

Oo 


10: “A':SINPUT "SO= "7E 
20: INPUT "X1= "ZA-"Y1= "7B 
30: INPUT "X2= "7C-"Y2= "7D 
40: M=0 
SO: INPUT "X= "sXe"Y= "FY 
60: F=C-A:G=D-B 
70: H=X-C:1=Y-D 
: J=A-X:sK=B-Y 
AX, 90: L=GeF+(2eG+1) eH+(2*G4+2%1It+K) J 
AY, 100: M=M+ 
110: IF ABS M/2>EGOTO 130 
AX; 120: C=X:D=Y:GOTO 50 
130: A=-CABS M-2*E—)/ABS L 
140: X=A*xH+X:2:Y=A*I+Y 
150: PRINT USING “HHHHHHH HHH TF X-Y 
160: END 


BEE ESP P[ |= > 
Semerelete = 


IN| </x/#]/</¢/4/0/2/0/0/0/2) 
e eiststeteaistetseteistcts 


Ae 








| 
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SHARP 
: PROGRAM NO. 
Title PARALLEL SPECIFIED AREA DIVISION b4—-C=18 


[ Formula ] 





In a city block as shown on the left, when 
included angles a, 8, and coordinates of 
(3), and (2) (3) = 41, (3) (4) = 42, (2) 3) = 
/ are given, the program find the coordinates 
of points P and Q that yield a specified area 
by the segment parallel to (2) (3). 


(NOTE) The input conditions above are 
obtained by the inverse calculation of 
P4—C—4. 
















6 = 180° 
{ Operation ] 


C LOAD YC 18 -V_ (Ewrek} NOTE) Coordinates are expressed by discarding the 5th 
decimal. 



































|| input | Display | Note || input | Display | Note 
(7 
Pe) 0 el] = 0 eee 
oro es ae 
Pe llenesee ala = remade SS 
so a= oe A Se a 
5 |C@> 180 eg] 2 = Ta ie 
flo.) 90 ral] 22 = a0 ie ee 
Ca CR OT (7 LN NT 

[SE 

Pz 0.0000 ome | Xe eff i SSCs 


Ww 


0.0000 0.9999 X (xp, ¥p 
—132— 





Title PARALLEL SPECIFIED AREA DIVISION 


Memory content 
PALtv 
Bl2p xs 
cis} ve 
a 









10: "“A':SDEGREE :INPUT "X3= "ZB-"Y3= '"7C 

20: INPUT "A= "ZF /"B= "ZGe"<1= "FL/"<2= "7H 
7hL= "aM 

30: F=DEG FtE-4:G=DEG GtE-4:J=0 

40: INPUT "S= "ZI 

50: JaJ+tI 

60: X=fCM*M-2e3*(1/TAN FHT/TAN G)) 

70: N=2*xJ/CX+M)/SIN G 














80: O=B:P=C:A=DEG H:GOSUB 500 

90: PRINT USING "“4####H HAHA SUP" 707P 
100: N=X:A=DEG L+180:GOSUB 500 
110: PRINT "Q:"70-P 
120: GOTO 40 
: O=O+N*COS AsP=P+N*xSIN A:RETURN 

6 


PT TT TTT IN <[[[<[¢[a[o[s[o[vfo/2/2[r [a/c |-[z/o]-[m 
eile esis slelalele (ela s)are lolol sil = al 
PUAAAU AAG ii 

‘Jelepmfs) fyleols 
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SHARP 
PRO NO. 
Title VERTICAL SPECIFIED AREA DIVISION 


[ Formula ] 








In a city block as shown on the left, when 
included angles a, 8, and coordinates of 
(2), (3), and direction angle @ of (3) (4) 
are given, by dividing with a straight line 
vertical to (3) (4), the coordinates of points 
P and Q to yield a specified area Sp are 
determined. 


(NOTE) Where angles above a,f,@ are not 
given, they should be found from the 
coordinates of points (1) through (4) by the 
inverse calculation of P4 —C — 5. 

Points P, Q should be on the right side of (3) 
(R). 










B= 80°14'48” 






(3) ( X=60 
Y=73 






[ Operation ] 






C LOAD YC 19VY_ (ENTER 


NOTE) Coordinates are expressed by discarding the Sth 
decimal. 


Display | Note | | Input_| Display 
fife is core ar a8 [Pe 70) 
fafa Repeat om spon 


6 | («90.595 nen) | A = 90 .595 
7| ()80.1448(enTEn)| B = 80.1448 















t 




























8 | (62.)8.2018 Z2 = 3.2018 


for ta.ares 75.5805 | Grp 95) La 




















Title | VERTICAL SPECIFIED AREA DIVISION 


| Memory content | | content 


AL] O30 
Bi] 
fe[af x 
Dlx 
















10: “A':SDEGREE :INPUT "X3= "7B-"Y5= "7Cr"X2 
= "OD, "Y2= "OE 

20: INPUT “A= “7F-"B= "7G,"<2= "7H 

30: A=DEG H-90:X=D-B:Y=E-C 

40: L=X*COS A+Yx*SIN A 

S50: Y=Y*COS A=X*SIN A 

60: Q=1/¢(TAN (€270-DEG F-DEG G+E-4)) 

70: J=ABS (L-Q*Y) sM=J*eYsN=C6 

80: BEEP 3:INPUT "S= ";I 

90: N=N+1:0=B8:P=C 

100: I=2*N+M 

110: Y=(-J+fABS CJ*J+Q%1))/Q 

120: X=Q*Y+J:A=DEG H:GOSUB 500 

130: PRINT USING “#HHHAH HAHH' SZ" Ps"7O7P 

140: A=A-90:Y=X:GOSUB 500 

150: PRINT "“Q:"70-7P 

160: GOTO 80 
: O=O0+Y*COS AsP=P+Y*SIN A:RETURN 
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SHARP 


° PROGRAM NO. 
Title LONGITUDINAL CURVE (QUADRATIC PARABOLA) 


[ Formula ] 


By changing the value of x, the value of y is obtained. 


— Citi) x? 
d 200 L 


( iyti2)eL 
800 





Meanwhile, M = 


{ Example ] 


i1,= 5.5% Input — sign when 7, — iy. 
ig = —4.38% 

L = 40.0m 

x1 = 8m = 0.0784 

x2 = 12m y2= 0.1764 

x3= 20m ys = M = 0.49 


NOTE) The value of y is expressed by 
discarding the 5th decimal. 


{ Operation ] C LOAD VC 20 V CENTER 


i 
| 
| 














Title LONGITUDINAL CURVE (QUADRATIC PARABOLA) 


Memory content 


ay 
t, 
2 














0 || > 
Slelalsisislsislele[s[= 
= ~[e[o[=[=[s T=] 


10: "ANSINPUT "I1= “FA/"I2= "7B-"L= "-C 
20: D=CA-B) /(200*C) 
30: INPUT "X= "ZE 
40: F=ExE*D 
50: PRINT USING “AHHHHHH HHH YS" 7 F 
: GOTO 38 


[ee = 
| aor 
200L 


x 











4[o[alo|vjolz/z[r|x/¢|-|z/o| =m] 





Pt tT TTT IN| </x]e[<le 
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SHARP 


. PROGRAM NO. 
Title INTERSECTING POINTS OF CIRCLE AND LINE pP4—-C-21 


[ Formula ] 


This program is intended to determine the 
intersecting points P, Q of a straight line running 
through points P;, P,, or a line running through 
a point P, and having a direction angle of a, and 
a circle of which center is Py and radius is R. 


[ Example ] 


[ Operation ] 
C LOAD VC 21¥V 
(A) program: Calculation from two points 


program: Calculation from one point and one direction angle 


NOTE) Coordinates are expressed by discarding the 5th decimal. 


‘(In the case of a point, 
a direction, and a circle) 


45 
+ 0.0000 49.9999 
> 50.0000 100.0000 





2) 


(x@ , IQ) | 











Title |§INTERSECTING POINTS OF CIRCLE AND LINE 


Memory content 







=| 

















10: "A":J=0:GOTO 30 

20: “B":J=1 

30: DEGREE :INPUT "XO= "ZA-"YO= “7B-/"R= “7C 
40: INPUT "X1= "ZD-"“Y1= "ZE 

50: IF J<>OQINPUT "A= "ZH:H=DEG H:GOTO 90 
60: INPUT "X2= "ZF-"“Y2= "7G 

70: X=F-D:Y=G-E:GOSUB 500 

80: H=X 

90: X=A-D:Y=B-E:GOSUB 500 
100: K=W*SIN (X-H) 

110: L=ACS (K/C) 

120: M=H-90-L :N=H-904L 

130: GOSUB 600 

140: PRINT USING “###### HAHA "Ps"707P 
150: M=N:GOSUB 600 

160: PRINT "Q:"70,P 

170: END 






° 


cm) 
Ww 


|r| x/¢]=|z/0/"[m/o/o] 0) 


— 
= = Lm [|| 





500: W=fCxX*X+Yx*Y) 
510: X=ACS (X/W):IF Y<OLET X=360-X 
529: RETURN 


Yp _Y, : O=A+C*COS M:P=B+C*%SIN M:RETURN 
P, YQ 


UNM gaadii 
> 
ra) 


> 
rs 
a 


i 
re 






pi | tt | TIN | </<}=/</¢]4[o]2/0//o/2z/3] 
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SHARP 


. PROGRAM NO. 
Title RADIAL AREA CALCULATION P4—- C22 


[ Formula ] 


e Given angle and distance. Calculate the area. 

e The area is calculated by the double meridian 
distance method. 

e When only relative coordinates are needed, the 
angle may be measured from any direction. 





a@i= 387.2030 DX= 12.0232 
i= 15.128 DY= = 9.178] 


a2= 135.4128 DX = — 14.6876 
Le= 20.456 DY= 14.2894 


@3= 282 4521 DX=— 6.5296 
!3= 10.789 DY =— 8.5887 


as= 310.1225 DX= = 7.8272 
l4= 12.125 DY =— 9.2600 


S = 417.965242 


[ Operation ] 
C LOAD VC 229 


(A) program: For data input NOTE)e DX, DY are expressed by discarding the 
Sth decimal. 


rogram: For area calculation 
PrOB e The area is expressed by discarding the 7th 








Display 

ia|iore.astemen |= 12.15 

c= 15.18 fale] 9-2 

S502) (a 
tease 














A = 185.4128 suf) [B) |S = 417.965242 


me Saar 
(120.456 (iviem| L = 20.456 ee ee 
[ciaieieke! [| a i ee eee ee) 
ae! (a 
ae i 











(A)232.4521 (EWTER)| A = 282 .4521 


[ENTER —6.5296 —8 .5887 


ea 





| 
| 
[17 
[re 
[v9 
[29 
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4 PROGRAM NO. 
Title RADIAL AREA CALCULATION 


Memory content 
























: “A'SDEGREE :CLEAR 

20: BEEP 2:INPUT "A= "ZA,"L= "eL 

30: X=L*COS DEG A:Y=L*SIN DEG A 

40: IF J=OLET J=1:C=X:2G=X:D=Y:H=Y 

50: €=xX-C:F=Y-D 

60: GOSUB 500 

702: C=X:D=Y 

80: PRINT USING “###HH#H BARE" XeY:GOTO 20 
90: "BY :E=G-C:F=SH-D 
190: GOSUB 500 
110: A=ABS $/2:T=A*.35025 
120: PRINT USING “###H#A# AHRBRHU PUSH FA 
130: GOTO 120 
500: M=M+F 
510: S=S+E«xh 

: M=fl+F sRETURN 
42 
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PROGRAM NO. 
P4- C—23 


(C) Division with interval 


Title OPENING SPECIFIED DIVISION CALCULATION 


[ Formula ] 
(A) Parallel division 








(B) Vertical division 




















In the three cases above (A), (B), (C), points P, Q and area § are found by successively 
giving measure points (1) to (4) and J. 





| Example ] 









Xi= 10.972 
Yi= 32.494 


X2= 11.905 
Yo= 8.863 


X3= 22 .668 
Y3= 9.178 


X4= 25.182 
Ya= 33.055 


1,=9 





















[ Operation ] 
C LOAD VC 23 Vv 
(A) program: Parallel division 







NOTE) e Coordinates are expressed by discarding 
the Sth decimal. 
e The area is expressed by discarding the 7th 


decimal. 
Display 
P 3 11.5499 17.8560 
(EnTER]}| Q 2 23.6189 18.2092 
S = 102.782605 
are [Repeat from ep Won 
5 





(B) program: Vertical division 
(c} program: Division with interval 

















Input Display Input 





3 
> 


SHF 
X )10.972{€nTER} X,= 10.972 
Y ,) 32.494 [Ente 


X 2) 11.905 (enter}] X,= 11.905 


as 
‘Y¥,)8.863 (ENTER}| Y,—= 8.863 f 
ee 


_ 





lean 
= 












= 





lan 


an 
= 


X 322,668 (ENTE 
Y3)9.178 (ENTER) 
X25. 1 S2{ENTE 
9| CY) 33 .OS5IENTE 


retro) 


ENTER 


= 
a 
an 
= 
= 
a4 









7 


cn 
Fae] 
= 
= 
~ 
= 








my} a 
faa] 
= 


Cc Same when interval is applied 


con 
a 
= 
inal 
=a 


= 



















E 


1}C1) 9 








Title OPENING SPECIFIED DIVISION CALCULATION 


PROGRAM NO. 
P4—-C—23 












Memory content 


En ae 
fBi2jv 
fo ae 


10: “A":PAUSE "PARA":D=0:GOTO 40 

20: “B':PAUSE "VERT':D=1:GOTO 40 

30: "C"PAUSE "MOVE" sD=2 

40: INPUT "X1= "ZE-"YT= "FF-"X2= "7G,"Y2= " 
7H 

INPUT "X3= "“FI-"Y3= "FS e"X4= “FKe"YG= " 








50: 















60: X=E-G:Y=F-H:GOSUB 500 
70: N=X2X=I-G:Y=J-H:GOSUB 500 
80: O=X:X=K-I:Y=L-J:GOSUB 500 
90: P=XsIF D=1LET O=N-90 
100: V=0:W=0 
110: BEEP 3:INPUT "L= "7M 


120: IF D=2LET M=M/COS (N-0-90) 

130: W=W+M 

140: Q=GtWeCOS N:R=H+tWeSIN N 

150: X=TAN CO+E-4) :Y=TAN (P+E-4) 

1602 T=(X*Q-YeI-R+J) /(X-Y) 

170: U=R+X* (T-Q) 

180: X=Q:GOSUB 600 

190: Q=X:xX=R:GOSUB 600 

200: R=X:X=T:GOSUB 600 

210: T=X:X=U:GOSUB 600 

220: USXsPRINT USING “#H#H##H AKHH' SPS" 7FQZR 

230: PRINT "Qs"sTsU 

240: S=(C Qe CH-U) +Ge (J-R) +I1* (U-H) +T* (R=5))/2 

250: Z=S-V:V=V+S 

260: PRINT USING "H#HAHHHHH HHHHHH' "S="77 

270: GOTO 110 

500: Z=JCX*X+YxyY) 

510: X=ACS (X/Z) :IF Y<OLET X=360-X 

520: RETURN 

600: X=SGN X*INT ABS (CX*E4G+SGN X*.5)/E4: 
RETURN 

617 


ir l|¢|-|z]o|4|m/[o]o 


Bia SP s(Slelslslslslalalslslsl=islel-|~leola|a| 
jou) 
: 
scan) 


bib 
~ | «| > 

















™ 





Sy 


<|x|=[<[¢/4/0|2/0|v/0/2/= 


~ 
Nn 
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SHARP 


Title CLOSED AND FIXED TRAVERSE (COMPASS RULE)| p4- c—24 











[ Formula ] 
After the input of initial data, entering the included angle 
and distance at each point, this program is intended to find 
the angle, error of closure in latitude and departure, sum of 
distance, and accuracy. 
Also, using the result of calculation of the error of closure, 
the angle is distributed evenly and the error of coordinates 
are distributed according to the compass rule. 
The obtained coordinates are stored in the memory. 
Maximum measure points should be 12. 


Error of closure in latitude SAX; =EX 


Error of closure in departure XAY; =EY 


Sum of distance a1; 





Accuracy L177 CER PEC SA YY 


Corrected total latitude X; =X;-) +AX; + bi 


Corrected total departure = AY; 





[ Example ] 
Error of closure in angle 5” 
Error of closure in latitude 5.970 m 
Error of closure in departure 7.541 m 
55°20’ 25” Accuracy 39 


[ Operation |] NOTE) e Coordinates are expressed by discarding the 4th 
decimal. 

e Accuracy of e results in error, but the operation 
can be progressed to next step by pressing(CL) key. 


C LOAD VC 24 V9 ‘ENTER 





Display 


[1 1]¢9)125, ossiearen)| B = 125 .058 aaa 
[nput 1 whenly2| (1 ) 105,05 (een L = 105 .05 
ea | {13|(4) 55.2025 fren] B= 55.2025 
(XA) 0 (195.5 (ENTE 
ENTE) B= 119.24 
Pee amt ? L = 90.456 
(XB )59.580 ENTER) | XB = ‘si TB — 360 .0005 
{ scyp)7i.107 exten) | YB = 71.107 // = GUE 
(2) 60.1010 earen| B_ — 60.1010 asia oe 


(/)85.123 'enter|] L = 85.123 EX=5.970 EY=7.541 

































































SHARP 


; PROGRAM NO. 
Title CLOSED AND FIXED TRAVERSE (COMPASS RULE en | 


(An example of closed traverse) input 1 when the display is C/F = 1/0. 
























Total Total 
latitude departure 


Latitude | Departure 
correction | correction 


TDirection 





2 Angle 
Distance correction 





Included 
angle 


60°10'10” 






























110°10/09” — 30.701 





































2 (125° 5'30”} 105.05 55°15/ 37” 27.495 
3 | 55°20'25” 290°36'01” 
4 |119°24' 230° 

















(An example of fixed traverse) Input 0 when the display is C/F = 1/0. 




















































Included i Angle Direction | Latitude | Departure Total Total 
angle Daswance correction angle correction | correction latitude departure 
TA= 230° ii XA=0m 
















60°10'10" 110.1009 ; — 1.351 


125°05'30") 105.05 55. 1537 


55°20'25") = 95.5 290.3601 
119°24' 1,=0 












27.495 | 162.416 


XB=59 58) YB=71 . 107 
























TB=230 















‘aj program: For start of closed and fixed traverse 






{8} program: For error calculation 


(Cl program: For output of results 







‘DB! program: For correction 







































i Input Display Note | Input Display Note 
| iENTER)| ACCURACY = 39 [11 | Correction 
}2] (sir) jg) |B 60.1010 1 85.1230 liz) (sift) (b) | CORRECT 








ienreR|| EB—— 0.0001 A=110. 1009] [13f Goo) (ewe 


is} eter. | EX—1.851 DX~ 29,350 [is] 2) fewren] Lo = 


EY--1.797 DY 79.903 |16 Repeating from step 14 [1 


j | permissible. 
‘enTER,| X —30.701 Y 78.196 X,Y 17 
Repeat 18 


c Te 
— — 
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Title CLOSED AND FIXED TRAVERSE (COMPASS RULE) 


Memory content. 


1: U=214+2*A:RETURN 
2: B=SGN Be INT ABS (B*E3+SGN B*.5)/E3: 
RETURN 
3: B=DEG (CDMS B-INT (DMS B/360)*«360): 
RETURN 
G) For correction 4: UsSGN UxINT ABS CDMS CU+SGN U*.00014)*E 
4) /E4sRETURN 
5: E=E-C/D:B=E-F 
=B:GOSUB 4 
B=DEG U:F=B+F:U=DEG U 
B=B+K+DEG L+180:GOSUB 3 
PAUSE A:K=B:RETURN 
“A'SDEGREE :INPUT "C/F=1/0 "7Q 
IF Q<>OPAUSE "CLOSE":GOTO 40 
: PAUSE "FIX" 
INPUT “TA= "ZRe"XA= “FSe"YA= "FT 
IF Q<>OLET G=R:H=S:I=T:GOTO 70 
INPUT "TB= "7G/"XB= “7ZH-"YB= "ZI 
J=0:A=1:E=0 
: BEEP 2:PAUSE A:INPUT "B= "-7Le-"L= "7M 
GOSUB 1 
100: IF E<>OLET J=J-DEG ACU) 
110: J=J+DEG L 
120: ACU) =L:U=U+1:ACU) =M 
130: A=At+1:IF E<>0G0TO 80 
140: V=A:GOTO 80 
150: “BY :D=V-1 
160: B=J+D*1804+DEG R:GOSUB 3 
170: C=B-DEG G 
180: IF ABS C>180LET C=C-SGN C*360 
190: U=J:GOSUB 4 
200: PRINT USING “HH##H#AHH AHHR' FP" T.Bo"7U 
210: U=C:GOSUB 4 
220: PRINT “EB="7U 
230: K=DEG R 


ty 1 
ee ee ee eee 
le 2 


oa] >| 
=I 


Slslalslelalieleis/=lslej=|~lelalalel[n!| 
pon) 


Mi K |] x] 
GW) Wl wl ew 
sl/e1olra 


bps} hs] s 
bom aby eo I 


rs 


K 13 |@ 
< 


re 
> 
K 


fo) 
SD 


bas 


Br 


| 
Ee 
iF 
|G 
|| 
rw 
Ke 
/M 
EN 
| 
i 
a 
PR 
|S 
eo 
ci 
x 


250: FOR A=1TO D 


Y 
Xx 
270: L=ACU) :U=U+12M=ACU) :GOSUB 5 


We 280: N=MtN:B=M*COS K:GOSUB 2 
290: 0=0+B:B=M*SIN K:GOSUB 2 
o. of memories = 
300: P=P+BsNEXT A 
320: PRINT USING “#HAHAHHA AAHM SY TLH" FN 
- 330: PRINT USING "##H# #HH™-"EX="707" EY="7P 
Measure No. of memories ~ 22 | 340: O=-0/N:P=-P/N:U=1/J (0#0+P*P) 


points 
é 350: PRINT USING "A#H#AHRAHHHH" 3 “ACCURACY=".U: 
END 





tk 
Ss 
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Title CLOSED AND FIXED TRAVERSE (COMPASS RULE) 


Memory content 


iD 
IE 
F 
a 
ol 
al 
rk 
iw 
IN 
fo) 
g 
ral 
rR 
S| 
ru 
rw 


_ 
~_d 








eee Ree 


PROGRAM NO. 
P4—C-—24 


"D'SPAUSE "CORRECT" 


: E=7: INPUT "NO= "ZA:GOTO 80 

: "C'™SK=DEG R:E=O0:F=0:G=0:H=0:I=C:J=C 
: FOR A=41TO D 

: GOSUB 14 

: L=ACU) :U=U+17:M=ACU) :GOSUB 5 

: GOSUB 4 

: Q=U:U=B:GOSUB 4 


BEEP 1:PRINT USING "####H HAR" "BFL" 
L’ 7M 

PRINT USING "#### #HHH" ;"EB="7Q7" A="7U 
IF M=OEND 

G=O0*eM+G: 1=PAM+I 


: Q@=COS B:U=SIN B 


PRINT USING “#H HHAHHH" "C="7Q7" S="7U 


: B=G-H:GOSUB 2 

: U=B:H=H+B:B=M*COS K:GOSUB 2 

: PRINT USING "####H HHH" FUMEX"Z Us" DX"ZB 
> S=S+B+U:B=I~J:GOSUB 2 


U=B:J=J+B:B=M*SIN K:GOSUB 2 
PRINT "EY";Uz" DY"ZB 
T=T+B+U 


: PRINT USING “#HH#H#HH HHHU UX FS 3 YET 
: GOSUB 1 


ACU) =S 2U=U+1 AGU) =T 
NEXT A 
END 
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SHARP 






Titl DIAGONAL AND PERPENDICULAR AREA PROGRAM NO. 
itle CALCULATION pa= C25 6. ||]. 


[ Formula ] 













Successively inputting the 
coordinates of three points or 
three side lengths, the area of each 
triangle is determined sequentially. 


S=V/s(s—a)(s—b)(s—c) 


at+tbt+e 
— 












Diagonal and perpendicular method 
area calculation 
f=. (L: longest side of 
2 
a,b,c) 


[ Example ] The height is expressed by 
x discarding the 3rd decimal. 





a=7.211 d@ = 12.166 
b = 8.944 b' = 18.416 
c = 12.166 c’ = 11.662 



















[ Operation ] C LOAD VC 25 Vv NOTE) Side length is expressed by 
(A] program: Calculation from input of coordinates discarding the 4th decimal. 


program: Calculation from input of side lengths 


P=4 ENTER Repeat from step 2 on. tJ 

Y,= 10 
Es eee Fe 
wee Td 
we ww |_| 
PT ifa= tan B80] |_| 
ifr 6e= 8.200] [| 









f=] 
i 
mo} 
c 
= 


[Slalalslels] 
= 
coe 
|S 
(w) 





ne 


aE 
rad |= 
ies 









mm 
= 
= 
oa) 
EJ] 


Yi) 10 
X2) 8 


IE 


an 
foal 
m= 
= 
mm 
= 


curen|| A = 7.211 


: | 
17| (C)12..166 (ewrer]] C = 12.166 lice! 
ae 


[nal 





[~Jola[alels{=| | 
ms, 


ThA) 7D 
|] 
is : 
a ba 
foe} cs 
=| 
EE: 
BE: 


Same as step 8 and after. 










—_ 
J 








Repeat from step 15 on. 





Titl DIAGONAL AND PERPENDICULAR AREA PROGRAM NO 
tle CALCULATION Sl Peers: 


Memory content 


" 
a 


10: “B':sPAUSE "A,B,C If’ :fl=1:K=0 
20: INPUT "A= “7A,/“B= "7B,"C= "7C:2GOTO 90 
30: “A™SPAUSE “P1,P2,/P3 IN':M=0:K=0 
40: INPUT “X1= "7C-"Y1= "7D,"X2= "FZE-"Ye= " 
2Fo"X3= "Ge "v3- we 
50: splot ag tec ules 500 
60: =G-E:Y=H-F:GOSUB 500 
70: =C-G:Y=D-H:GOSUEB 500 
80: 
90: 
100: 
110: 
120: 
130: 
140: 


160! 
ti 
or discrimination 160: 


170: 
180: 
190: 
200: PRINT USING “##H### HAP; ARH"F As" B="7B 
210: PRINT "C="sC-" H="sJ 
220: PRINT USING “###HHHHHH HHRHA' TF "SH"7S 
230: PRINT “TS="7K 
240: IF M=OTHEN 40 
250: GOTO 20 
500: X=fCX*X+Y*Y) 
510: RETURN 

2 LOINT (L*E3+.5)/E3 
610: RETURN 


OX XX 
ae 


sIF A>XLET X=A 
B>XLET X=B 

AtB+C) /2 

(1* (I-A) *(I-B)* (I-C)) 
NT ((2*S/X)*E3) /E3 
:GOSUB 600 

XeI/2 KEK+S 

SUB 600 

B:GOSUB 600 
C:GOSUB 600 


iow tf ob tt maou 


i$ 
260 
sk 
sk 


~ 


i Me des a a = ae By 


et 
eleisisi=isiele(slelalslalsl=lslele|~leolelale[s| 








B | 
| D | 
| 
F | 
S| 
/H | 
ha 
K | 
Mi 
LN 
}O 
Le 
a 
RI 
S| 
UI 
KE 
We 
x | 
Z| 
ol 
he 
- 
i 
: 
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SHARP 
Title GIRDER LOAD TERMS CALCULATION PROGRAM PROGRAM NO. 
FOR REINFORCED CONCRETE CONSTRUCTION P4—-D—-1 
[ Formula ] 


This program calculates the load terms of tortoise-shaped girders in the preparatory stage of 
structural calculations of reinforced concrete construction. (See shaded parts below.) 
The shape should included the four kinds shown below. 


® @ ® 


Column Beam 
®) 


Column g 
Column 
Floor slab 


Floor slab 


Girder Girder Girder Girder 


Plans of tortoise-shaped girders 


Program of shape (1) is defined as (A) 


Program of shape (2) is defined as (B) 
Program of shape (3) is defined as (€) 





Program of shape (4) is defined as (D} The “type” means the load shape at 


Clear of cumulative memory is defined as (G) both sides of the girder (including 


Output of C, Mo, Q is defined as the load value): input 1 when the 
type is the same, and 2 when different. 


[ Operation ] 
C LOAD YD1Y _ (EwreR! 








SHARP 
Title 


(A) Calculation formula for each shape 
w =Wo xs 
_Swl? 


l 
w =Wo x—e 
2 2 


g=— 


Cc Se 39,2 3 
iG 2a*l+ a*) 


Mo=(8/*% 4a’) x w/24 


+ ( 


_ Bux! 


GIRDER LOAD TERMS CALCULATION PROGRAM 
FOR REINFORCED CONCRETE CONSTRUCTION 


N: 


PROGRAM NO. 
P4—- D-1 


fixed end moment (t-m) 


: moment in the case of simple support 


(t-m) 
shearing force in the case of simple 
support (t) 


: unit weight per | m? of floor (t/m?) 


unit weight per 1 m of floor (t¢/m) 
span of girder to be determined (m) 
slab width charged on girder to be 
determined (m) 


: unit weight of beam (t/m) 
:unit weight of girder (t/m) 


number of beams 


This area 


l l 
ig are 




















[Al | SPAN 
(ENTER) } FUTAN 
(ENTER]] SLAB W 


aay 


(ENTER; 


HABA 











SHARP 


Titl GIRDER LOAD TERMS CALCULATION PROGRAM PROGRAM NO. 
tle FOR REINFORCED CONCRETE CONSTRUCTION Pos Dd 


(a) to (d) refer to the values of C, Mo, Q of 
the slab part. 


fslole|afofalateo[mi=] | 





SHARP 
Titl GIRDER LOAD TERMS CALCULATION PROGRAM | PROGRAM No. 
Itle FOR REINFORCED CONCRETE CONSTRUCTION | P4- D-1 


w Use program (A) 


fe ant =1.0t/m? 
7 


Gw=1.0 |t/m 
1=6.0m 


Memory clear 


na 
= 
~_ 
Io 


on 
= 
m_ 
4 


SPAN 
WIDTH 
SLAB W 
GIRDER W 
TYPE W 
> 


8.62 1850 7.50 


t t t 
C Mo Q 





nore KH Orn 


ov 
= 
a] 
4 


Wo =1.0t/m’ 


SPAN 

WIDTH 

SLAB W 
GIRDER W 
TYPE W 

14.25 22.50 12.00 


6 
6 
1 
1 
1 





Bieler [e fefe lets [=] | 





SHARP 
tl GIRDER LOAD TERMS CALCULATION PROGRAM | PROGRAM No. 
Title FOR REINFORCED CONCRETE CONSTRUCTION P4=p—=4 


x Use program 


Ly =|8.0 one Wo=1.0t//m? 
: : LAK ° ° 


Gw=1.0t/m 
7=6.0m 


SPAN 

WIDTH 

SLAB W 
GIRDER W 
TYPE 

> 

7.00 10.68 6.37 





FI 
=| |= 
| | 
be eaadustons SHS 


"gggge°° 





nm 
a 


SPAN 

WIDTH 

SLAB W 
GIRDER W 
TYPE 

11.01 16.87 9.75 


Wo=1.0t “m? 


|g ee 


fal 
= 
~— 
m 
= 


fea) (re 
=| |= 
=| | 
cal feo 
ss) |= 


(SHFT) 
) 
8 
1 
1 
1 





aa} 
m= 
= 
m 
a 


| 


[out | ispay [Note [ [rut 
ae eee 
ee a ul 





SHARP 
Titl GIRDER LOAD TERMS CALCULATION PROGRAM | PROGRAM NO. 
tle FOR REINFORCED CONCRETE CONSTRUCTION PAS] 
* Use program 


SPAN 

WIDTH 

SLAB W 
GIRDER W 
TYPE 

BEAM W 

> 

12.70 22.50 10.12 


| Je 


m 
= 
= 
m 
EJ 


mm 
= 
xa 
m 
EJ 


! 


mm 
= 
= 
m 
= 


ra) {rm 
| 2 
| 
ma] ea 
ss| [=o 


[aa] 
= 
= 
m 
= 


om) oa 
=| 2 


an 
= 
aa 
4 








SPAN 

WIDTH 

SLAB W 
GIRDER W 
TYPE 

BEAM W 

22.40 40.50 17.25 


ee 


Taal] 
me 
— 
mm 
= 


l 


mm 
= 
= 
nal 
2 


I 


mm 
= 
= 
foal 
= 


ia 


m 
= 
= 
m 
= 








m 
= 
=a 
aa) 
= 


ae Mia 
as 
ee Geet Sena a 
ee ic 
a 
ren ee 
pen 2 se 
rT ea 
ae cs, 
Soto (eee 





SHARP 


Titl GIRDER LOAD TERMS CALCULATION PROGRAM PROGRAM NO. 
Ite FOR REINFORCED CONCRETE CONSTRUCTION P4-D~-1 








% Use program ‘D) 
“sHeT| [G) 
(DB) SPAN 
Bw=1.0t/m (ENTER WIDTH 
rw 9 fuer] SLAB W 
ae iri) GIRDER W 
ly=|6.0mi Wo=1.0tm? fier) TYPE 


ENTER; BEAM W 


Gw=1.0 tAn (ENTER) 9 => 
See. SHFT! (Fl 15.20 22.88 12.50 








Bw=1.0t/mn 
| SHFT. 
‘SHFT] (DB) SPAN 

6 WIDTH 
- SLAB W 
GIRDER W 
TYPE 
) BEAM W 
27.41 41.16 22.00 


Wo=1.0 tm? 





























SHARP 


PROGRAM NO. 


Titl LOADS ON THE MAIN GIRDER FOR A 
Itle REINFORCED CONCRETE BUILDING 





yx Use various programs in combination. 


¢ Column 


WIDTH 
SLAB W 


GIRDER W 
ENTER} TYPE 
{ENTER} >> 





SPAN 
exten) ©=WIDTH 
NTE] SLAB W 
(men) GIRDER W 
leven) 12.63 19.68 


Operate programs 
{Al and (B). 








Wo=1.0t/m 
Gy=1.0tm 


ly= 
By=1.0t/m 





SPAN 
WIDTH 
SLAB W 
GIRDER W 
TYPE 

> 


SPAN 
WIDTH 
SLAB W 
GIRDER W 
BEAM W 


enTea 16.71 26.68 13.50 


Operate programs 


and [C). 


Wo=1.0t/Am? 


SPAN 


fnTtx]) WIDTH 


SLAB W 


farts) GIRDER W 
8} TYPE 


ENTER, BEAM W 











ENTER) 


ENTER] 
ENTER) 
(EWTER| 
|ENTER| 


> 


SPAN 

WIDTH 

SLAB W 
GIRDER W 
BEAM W 

24.91 40.83 19.62 


Operate programs 


Ce 


and [D). 
































_ — 
~ 7 





Title GIRDER LOAD TERMS CALCULATION PROGRAM PROGRAM NO. 
FOR REINFORCED CONCRETE CONSTRUCTION P4s"D=] 


Memory content 


"G's CLEAR 
: EMD 
: "A" sGQSUE 
Z=WeL/e 
D=SxZ*eLEL 
C=D/96:Q=2xL/4 
M=Z*eL*l/12:GOSUB 600 
: END 
"B"sGOSUB 500 
A=¥/2s3Z=lheA 
C=2/(12*L) * (L45—2% Ax AxL+A%S) 
Ma (3%*eL*L-4e Aw A) *Z/24 
: Q=(L-A)/2*2Z:GOSUB 600 
END 
: "C':GOSUE 500 
INPUT "BEAM Wo "7B 
2 Z=tlel/4 
P=Bx Y¥/2+the (LEL/1640¥/2-L/4) *L/2) 
2 C=17*ZKHAL/3844+P*L/8 
M=ZeL*¥L/164+P*L/4 
Q=2*L/4+P/2:GOSUB 600 
END 
"D":GOSUB 500 
: INPUT “BEAM Woo"3B 
: 2=WeL/6 
PSB Y¥/2+le (L*L/364+(0Y¥/2-L/6)*L/3) 
C=37*2ZKLAL/B6442%PHL/D 
M=7* ZkL*AL/1084P*L/3 
Q=Z*L/4+P3:GOSUB 600 
END 
INPUT 'SPAN "“sl-"WIDTH "ZY 
: INPUT "SLAB Wo o"ZW-"GIRDER W "7G 
: IF K<>ORETURHN 
INPUT "TYPE "7K 
RETURN 
IF K=2G0TO 620 
: CaC+C Halts QsG+Q 
: IF R<O>OLET R=R+C2S=S+hisT=T+G:50TO bc 
: H=G*Lel/12 
T=H*1.5 
J=G6*L/2 
R=CtH:S=f+I3T=Q+J 
IF K=2RETURN 
PRINT USING "#HHHH HEUERISFT 
CLEAR 
RETURN 


¢|=|z/o]™|m/0) 


meh 
Blalelsis(=[slelslslalalslelsl=lslel=[~lelala| 





Ko 
/M 
LN 
0 | 
P| 
| 
Ro 
Ss 
co 
ka 
W| 
x! 
Z 
a 
Ea! 
Si 
[el 
Ea 
if 
= 
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SHARP 
Titl FORCE OF SECTION OF SIMPLE BEAM PROGRAM NO. 
[tle = (UNIFORMLY VARYING LOAD, TRAPEZOIDAL) | P 4~ D—2 


{ Formula } 


This program calculates the simple beam to which a trapezoidal load as shown below exerts. 


i 
A 











= qi + Qe 
2 


Total load 


Reaction Ra = (2¢1 + god +176 


Rp = (Cai + 2q2)° 176 


Position of x applying the maximum bending moment: xo 


I \ 
Xo = git —X Catt giuraet+ at} 
( g@2- a1) 8 





Maximum bending moment 
Mmax = Ra xo-GQite/%2—( q2- gi) * xo%(61) 
{| Example] 91 = 1.0 t//m Q2 = 2.0 t/m 1 = 10m 


[ Operation ] 
C LOAD Yp2V iE 





























8 833333333 
5 .275252317 


























Title FORCE OF SECTION OF SIMPLE BEAM PROGRAM NO. 
(UNIFORMLY VARYING LOAD, TRAPEZOIDAL) P4-D-2 | 
Memory content 
ek ae 
fcj3] > NA'SINPUT "Q1= "2P,"Q2= "FQ,"L= "FL 
: USING :W=(P+Q)/24L 
Dis] | 30: Recanpt@ ais 
fe) ae 
: PRINT "W="/W 
Pref a8 rea staat 
PS faf aos xeerar crate 
2 X=(-P+S ((P*P+P* Q+Q%Q) /3) )*L/(Q-P) 


t MER&X=P*X*X/2— (Q—P) &X*3/ C6*L) 
: PRINT "X0O=",X 
: PRINT "M/MAX"»M 


: END 


— 
~~ 














PL Tt TT TL IN| <)x/3[<[¢/4/o]2/0] 0/0 /2/2/r]ale|— 
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SHARP 


: CORRECTION COEFFICIENT OF DISTRIBUTION PROGRAM NO. 
Title SHEARING FORCE DUE TO TORSION P4—-D-—4 


{ Formula ] 


This program calculates the correction coefficient a of the distribution shearing force due to 
torsion. 
| <— Reference line v1 WX DX 





Reference line > 


ax 


: The data refers to the x-direction (the same 
symbols are used in the y-direction). 

: distance from reference line to each x row 

: weight of each x row (total of column axial 
forces) 

: total of D values in each x row (incl. wall) 

: correction coefficient 

: distance from reference line to center of 
ridigity 

: moment of inertia of D value in x-direction 

: distance from reference line to center of 
gravity 

: eccentric distance in x-direction 

: distance from center of rigidity to each x row 





> 1, o 
a > 
= = a 
a > 
a) Q a 


a 
y wy 
_ SDX+EY. — SCWX*+Y1) ; 

Sui JX+]Y % Qy= Ywx { Operation ] 


_ S(DxX-¥1) EY=QY—GY C LOADYD4Y (EnteA) 
EDX 





JX=X (DX-Y1?)—-2S DX+GY? Y=Y1!1-~-GY 


When ting TER 
TLD ana 
fecal 
(Common for WX, DX) 

[4% oma 
[saeal 





~ 








SHARP 


; CORRECTION COEFFICIENT OF DISTRIBUTION PROGRAM NO. 
Title SHEARING FORCE DUE TO TORSION Paps 








[ Example ] Input data 


«Reference line 
D value in D value in ; 
y-direction { x-direction D value on wall 


0.8/ 10.83. d.0(3.2) 2.1 
O O © 





t 
44 
I 
l 


1,140.8 201.4 i Ae 42: 
196 2.97242 2.27173 
. 1] 1.108.2) | 2.2 E 
C) © O G) C) 
wil le. 
A17 0.8) 2.0 0,812.0 0.8120 0. 
143 143 148 
; ; 5. 





Reference line —> 

















56.3 <2 DY 


The example shown below refers only to the area surrounded by dotted line. 


The usable range is 4 -NY + NX < 40. 











Input Display 
(ENTER) | X 1 


ENTER) 








5.7 498.0 6.2 
851 
12.2 


















































SHARP 


CORRECTION COEFFICIENT OF DISTRIBUTION PROGRAM NO. 
Title SHEARING FORCE DUE TO TORSION p4—-D—-4 


[ Result ] Output data 


GX= _|15 .58m 


ay | 1a 1.076 ose 0.988 odes ae 
: = JX=2 510 


JX+ JY=9 ,047 


Cautions for correcting: 
1. NX, NY, and distance cannot be corrected. 


2. When correcting the wall D value, enter the wrong input with minus sign, and then feed a 
correct input. 











: CORRECTION COEFFICIENT OF DISTRIBUTION 
Title SHEARING FORCE DUE TO TORSION 


ape 
abe 
[cor 
A 
o 
a 


Zz 


3 
| soxvn sora 
[so aH 
idx 
fe 
ia] sone oR 
ol Sov FD 
iW ree 
ie] Saar aoa | 


alee 
pal aexzee | 


= 
ial 
= 
re 


Y1 ,X1 


ar as 
(2D For jump 


NX pes. Y1 


|B 
|B 
Ee 
ia 
|G 
pH 
ce 
Ko 
/M 
LN 
0 | 
pp 
Ky 
Ri 
|S 
| 
vo 
|W 
x 
Ea 





= 


NY pes. X 1 





§} D temporary store 


2 “A'SCLEAR :INPUT "NX= "ZBe"NY= "FC 
: 2=B:S=C2T=294+2*%C2AC27) =0 
: GOSUB 500 

: L=0:G=N 

: F=0:H=0:1=0:N=0:V=0 

: Z=C:AC27)=1:S=B:GOSUB 500 
: "B":Z=B:A(27) =0:GOSUB 900 
: Z=C:AC27) =1:L=0:G=N 

: GOSUB 900 

: END 

: FOR X=1TO Z 

: IF AC27)=1GOTO 650 

: INPUT "Y1= "?Y 

: K=29:FOR A=1TO S$ 

: INPUT “WX= "7ACK) 

: K=K+1:NEXT A 


INPUT “CORRECT ? "ZP,R:GOTO 580 


: K=29:W=0:P=K+C:GOTO 590 

: AC28)=28+P:ACAC28))=R:GOTO 560 
: FOR A=1TO S 

s W=W+ACK) ACP) =ACP) +ACK) 

: P=P+1:K=K+1:NEXT A 

: K=P+C+B:FOR A=1TO C 

: INPUT “DX= ", ACK) 

: K=K+1:NEXT A:GOTO 700 

: INPUT “X1= "7Y 

2: K=294+3x*C+B:sP=28+X+C sW=ACP) 

: FOR A=1TO S 

: INPUT “DY= "“7ZACK) 

: K=K+1:NEXT A 

* INPUT “CORRECT ? ";P,R:GOTO 720 
: D=0:R=29+3*C+B:GOTO 74C 

: AC28)=28+3*C+B+P 


ACAC28))=R:GOTO 700 
FOR A=1TO S 
D=D+AC(R) :R=R+1 

NEXT A 
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PROGRAM NO. 
P4—-D-—4 


Tit! CORRECTION COEFFICIENT OF DISTRIBUTION PROGRAM NO. 
Lele SHEARING FORCE DUE TO TORSION P4—D—4 


Memory content 


770: INPUT “WALL D= ";R:D=D4+R:GOTO 770 

780: V=tleVeM=WeY+™ 

790: F=F+D:H=DxY+H 

800: T=D*eY*Y+I ACT) =¥:T=T+1 

810: PRINT USING “##HH.R™FYZUSING “HHHHHHH IH 
"TSWZUSING “HHHHHH A" FZDSNEXT X 

820: Q=M/V:N=H/F , 

830: E=Q-N:0=F*E 

840: J=I-F*xNeN+J sUSING 

850: IF AC27)=1GOTO 880 

860: PRINT “AW',/V=EPRINT "“ADX"-FSPRINT "QY''-Q 
SPRINT "GY" /NSPRINT "EY"-ESPRINT " 
IX" oJ 

870: RETURN 

880: PRINT "AW" ,V=PRINT "ADY'-F2PRINT "QX"-Q 
sPRINT “GX"/N:SPRINT "EX"-ESPRINT " 
IXtIY" od 

890: RETURN 

900: FOR A=1T0O Z 

910: T=28+2xC+A 

920: IF AC27)=1LET T=T+B 

930: Y=ACT) sU=1+L/J*CY-G) 

940: IF AC27)=1G0TO 960 

950: PAUSE “Y1 ALPHACX)"':GOTO 970 

960: PAUSE "X1 ALPHACY)" 

970: PRINT Y/UsNEXT A:RETURN 

1056 
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SHARP 
; STRESS CALCULATION OF THREE HINGED POINT] PROGRAM No. 
Title GABLED ROOF FRAME P4—-D—5 


Sign 





i er) 
Reacnen © Shaft pressure 


| Compression@) 
— Tension 
Outer 


Outer i 
(S) 1 Plus in | 
Taient @! clockwise iS) 
| Inner, — 
3 } _—— 


I Shearing force 
Bending moment 


Ngc=Npc =~ sinaVa-—cosaHa, 


QBpCc=—Qpc=cosaVya-—sinaH, 








~ 8 Cht+f) Qpa=-QpeE=—Aag 


Mp=Mp=—Hah 











(12)10.8 — (EwTer 











(NTeR)|| MD  —4.62459375 ae 








(enter) |QBA | —1 3213125 


ENTER! QDE  —1.3213125 
ENTER} | QBC 2 .023039742 











a 
2 
ol 
4 
5 
G 
o 
a 
19 








SHARP 


Title STRESS CALCULATION OF THREE HINGED POINT | PROGRAM NO. 
GABLED ROOF FRAME P4—-D—5 


0.6 h? 
var—a| as 0.214 s +0. 0552 ( nr) 


0.6 h 


ve=—a{- + 0.895 ~ 0.0552 (a +4) } 


q (0.7 A?+0.8 Af + 0.0754 si + 0.0538 shk+ 0.0079 fs ) 

h+ f 

g( 0.5 hA?+0.4 hf — 0.0754 s! + 0.058 sh + 0.0988 fs ) 
h+f 


Ha= 

















Hgr= 








Mp=—( Haht+0.4 gh?) , Mp =Heh+ 0.2 qh? 





Opa=—(Hat08 qh) , Qpr=— (Hr + 0.4 gh ) 
Ngec=—Va sina (H4g+ 0.8 gh ) cosa 
Qec=V4cosa—(Hg+ 0.8 gh) sing 

Npc=—Ve sina+ (H-+0.4 qh) cosa 


Qpc=~Vecosa~(He+0.4 gh) sing 


(M) program: Input of condition 
(A) program: Perpendicular stress 


program: Horizontal stress 


[ Operation ] 


C LOAD YD5Y 


QDC —2.023039742 
| ewrer) | NDC 1988305418 
B 
NTE 


Input 


NDC 7.59948E—- 01 


i! 


= 
= 
= 
inal 
= 


= 
= 
= 
Coal 
= 


(EwTER) 
(sur) BC 1) (B) | SEISMIC STRESS 
-2 (ENTER) 


= fa] 
= = 
mm a 
= = 








E 1 .582678933 


EnTeR) | HE —1.347491808 


aa 
es 2: sl 
I | 
ae 
te ae Ore. ra ete ll 
as 
aaa 
— 


_ 
~ 
~= 
= 
= 
baal 
= 


o 
| 
o 
VA —2.547945067 
| 
| 
19 
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STRESS CALCULATION OF THREE HINGED POINT] PROGRAM NO. 
Title GABLED S777 FRAME PAS DEAD 


| Memory content | content 










10: "M":INPUT “L= “AL,"We "“FWe"HS “FH/"FE 








rFe"S= "ZS 
20: X=L/2/S:Y=F/S 
3Q: END 

























40: "A':PAUSE "PERMANENT STRESS" 

SQ: P=W*eLl:A=P/2:B=f, 

60: C=P*L/8/CH+F) :D=-C 

70: E=-C*¥H:G=E 

80: Is-CrJ=!1 

90: M=X*eA-Y*C20==M 

1900: K=-Y*xA=X*C2N=K 

110: PRINT "VA",A:PRINT "VE",B:PRINT "HA',C 
120: PRINT "HE",D:PRINT "MB",E:PRINT 'MD",G 
130: PRINT “QBA",I:PRINT “QDE'sJ:PRINT “QBC" 

7M 
140: PRINT. “QDC",O:PRINT "NBC"Z/KIPRINT "NDC" 
7N 

150: END 

160: “B':PAUSE "SEISMIC STRESS" 
170: INPUT “Q= "7Q 

180: R=.6*H*H/L:T=.0552% CH+F/2) 

190: U=.0754*S*L:V=.053*S*H: Z=Ht+F 
200: Az-Qk(R+.214%S+T) :BH=-Q% (-R+ .59%S-T) 
210: C=-G*(C. 7KHEH+ BKHAFEUFVE O79 * FAS) /Z 
220: D=-Qk(  S*HEHt 4eHAF-UFVE 0985 F*S)/Z 
230: Z=.4*QkH 
240: E2-CxH-Z*H:G=D*H+Z*H/ 2 
250: I=-C-242:J=-D-2Z 
260: K=-AxY~(C+2*Z2) *X 
270: M=AXX-C(CH+2*Z)*Y 

280: N=-Ba Y+(D+Z) *X 
290: O=-B*eX-(D+Z)*Y 
300: GOTO 116 
310: END 
654 























_ 
i 





Ty 
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SHARP 


: RIDGE DEFLECTION CALCULATION OF GABLED ROOF PROGRAM NO. 
Title FRAME (COLUMN BASE PIN, UNIFORM DISTRIBUTION) P4—-D—-6 


[ Formula ] 
Ha=Hp=H 


(8h+5 f) wl? 
1 “30h? (b+8)4+f(Bhtf) | 








IToch 
Ties 


k= 


M=f2=1 





BAt+2 fF 
B{h?CR+8) +f (8h+f)} 








‘ S {= 
Be 192 


wh Bet Bh) 
3 EI El 48 


i 2 — 
CBF + BH HAE Cs Bast an) HE | 


Where, His the horizontal reaction at points A, B when virtual load 
P=1 is applied to ridge point 0. 


[ Example ] 
450 (cm) 940 (cm) 
270(C cm) 2,100¢¢t/cm?) 
0.0027( t/cm) I 7,210( cm‘) 
1800( cm) 


[ Operation ] 
C LOAD YD6Y 











Title RIDGE DEFLECTION CALCULATION OF GABLED ROOF PROGRAM NO. 
FRAME (COLUMN BASE PIN, UNIFORM DISTRIBUTION) P4-D—6 
Memory content 


PAL 1 hn? k+8) +f (Bhtf) 











10: "AN SINPUT “H= “FH-"F= "ZF,"Ws "FW 
20: INPUT "L= "FL,"S= "FS/"E= "ZE/"I= "71 
30: K=H/S 

40: A=H*H*CK+3) +F* (3*H+F) 

50: M=(8*xH+5%F) eWaL*L/32/48 

60: N=(3*H+2xF)*L/S/A 

70: B=2*HA3*M*AN/3/E/1 

80: C=(2*F+3*H) *L/124M 

90: D=2% (FX F+SxHAF+3*H*H) AMAN/3 
100: G=WeL*lL/48x%(5*L/4—(5*F+8%*H) *N) 
110: C=(G-C+D)*S/E/I 

120: J=B+C 
130: PRINT “DEFLECTION”, J 
: END 













coe 
lalal[eislsls(sleleislalalsislsl=lslelo[~lelejafeln!| 


Pt tty TT IN </x[8]<[e]4/o|2/0/0/0]2/2/r|s/¢|-|z/0/5/m/o] 0/0] 
HATALAVVAHNAHAAGNGA 
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SHARP 


. PROGRAM NO. 
Title DESIGN OF END PLATE JOINT PART 










{ Formula ] 
nAgy 
0 
H 
n+: number of bolts 
Ay: sectional area of bolt shaft (cm?) 


H : height of end plate (cm) 


W2=W- wy 





w : width of end plate 





£21 ( [E +1-1) 
2 1 


w 












r : neutral axis ratio 


w, H® | 3 Wi | 2 3 Wy | 
= Me a ay Pt yt 
p= 70 = Cs ar car 
















ZI :moment of second order of replacement 


Z= a age! section (cm*) 
Z Z : sectional coefficient (cm?) 
op = M/Z 6; : bolt tensile stress (t/em?) 






Investigation of 0, < f; 


Qan-Aye f(t) (Investigation into shearing force) 
6 b'n' BT 
tp= (erie 
we fo, 









tp : thickness of endplate (cm) 



















i 


wTER}|} NX ABXKFS= 98.9] 


ears 
— 
min| TP = 2.286800622| 
"| 
— 
been 
Pa zecactl 
ie come 


Input 


Display _|_Note | 
a | 
(f5)2.25 (ENTER | 


i 
meee 
sw J 


6')3.4 


> 

x 
Nn 
ll 






m 
) 





= 
So 
> 
So 
a] 
= 
= 
a 
EI 


fsleol~[-leTe[-[el-[-T 
; 
| 
= 
= 
= 
ss 
i 


| 


van 
x 
Ww 
—_ 
fr 
faa] 
= 
= 
a 
z= 


ola 
mls 
4 
wo) 
E 3 | 
= = 
= = 
alll 
= = 


58.14 


s 
4 
Oo 


T 
w)30 (ENTER 


wolo]i a 
(ml fa 
=p}) [=2)| (=> 








aN 


SHARP 


i PROGRAM NO. 
Title DESIGN OF END PLATE JOINT PART itiow ie 


b' : b —u/2(b: distance between bolt center 
and fillet center, cm; u: parallel distance 
between bolt heads, cm) 

n’ : number of bolts in the outermost edge 
bolt row on the tension side 

BT: tension acting on outermost edge bolts 

= 0,° Ay (t) 


fp,: allowable bending stress of plate (t/cm?) 
[ Example ] 


2.25¢/cm* (temporary) 
3 .81%/cm* (temporary) 
4000¢.cm 


[ Operation ] 
C LOAD YD7Y [ENTER] 


i 
aes ae (1 
aes es (7 
a 
(care eS 





PROGRAM NO. 


Title DESIGN OF END PLATE JOINT PART cane 








Memory content 


Aj Ab 
Biz] 


Gt 








> "AN LINPUT "FS= "7S/"FB1= "ZF,"M= "2M 
neAb+f, > INPUT "B= "ZB/"N= "70,"Ne= “GNU ABE "7 
A 


: INPUT "“H= "7H-"W= "ZW 
: V=O0*xA/H 
: UsWV:X=V/U 
2 R=X*(F01/X4+1)-1) 
2 ISU*HA3/3% (34X* C5 -R) A24R434%/ 4) 
: Z=I/H/(1-R) 
: C=M/Z:D=0*Ax*S 
2 T=[C6*B*AN*C&A/W/ FD 
: PRINT “R=",R:PRINT "I=",1 
: PRINT “%Z=",Z 
: PRINT "SIGMA T=",C 
+ PRINT "N*xAB*FS=",D 
TP=""4T 











: END 


§ 


— 
elele(s(s(=(slelelslslalslalslelslele[~[o| 
. > o ~ i 











Cc 
D 
[| 
K 
Mi 
[N 
|o. 
fe 
}@ 
RL 
Ss 
Us 
Vv 
|W 
x] 
|Z 
= 
= 
al 
led 
al 


= lis 


— 


SHARP 


tl SECTIONAL AREA A, MOMENT OF SECOND PROGRAM NO. 
Title ORDER I, SECTIONAL COEFFICIENT Z (PART 1) P4-D-8 


{ Formula ] 


With respect to the typical sections shown below, A, I and Z are determined. 





+ 


Section 





. (A) Program 





oe Program 
bCh,—h, ) 








i (Cc Program 








-» (D) Program: 











In the case of A, if the structure is square, the same value should be entered for the input of 
b and h. 
{ Example ] 
(A)-a. In section A, the values of A, I, Z are found, provided b=3 cm, h=5 cm. 
(A)-b. The values of A, 1, Z of a square of which one side is 4 cm are found. 


(B) The values of A, I, Z are found under the condition that a 2.5 cm hole is provided in the 
center of a plate measuring 1.2 cm in thickness and 10 cm in height. 


(C) The values of A, I, Z of a bar measuring 6.5 cm in diameter are found. 


(D) The values of A, I, Z of a pipe measuring 7.5 cm in outside diameter and 6.5 cm in inside 
diameter are found. 


[ Operation ] C LOAD YD8Y 
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Tit! SECTIONAL AREA A, MOMENT OF SECOND PROGRAM NO. 
1tle ORDER I, SECTIONAL COEFFICIENT Z (PART 1) P4—D-8 


Memory content 


: : "A SINPUT "B= "SX,"H= "ZY 
rela bhy6e , : GOSUB 500 


: GOTO 200 
: "B"ZINPUT "B= "FX/"H1= "7 
: GOSUB 500 
: GOSUB 540 
: INPUT "H2= "7Y 
: GOSUB 500 
: GOSUB 550 
: GOTO 200 
2 "C™SINPUT "D> “ZY 
: GOSUB 520 
: GOTO 200 
2 “D"sINPUT "D1= "ZY 
GOSUB 520 
GOSUB 540 
INPUT "D2= "ZY 
GOSUB 520 
GOSUB 550 
PRINT USING “###HH #4"? A7B-C 
: RETURN 
: A=X*Y:B=AxY*Y/12 
C=2*B/Y:RETURN 
: A=UkY*Y/4:B=AxY*Y/16 
: C=2*xB/Y:RETURN 
D=A:E=B:RETURN 
A=A-D:B=B~E 
: C=2*B/Y:RETURN 


See ese ce see eae. 


i=3 


Wit 


5] 
| 
1 
8] 
8) 
1g 
ny 
19 
if 
14 
15 
19 
17 
1a 
9 
29 
24 
29 
29 
24 
25 
29 
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SHARP 


Title 


. PROGRA : 
A, |, Z OF VARIOUS SHAPES (PART 2) So ahaerai 


[ Formula ] 


This program calculates the sectional area A, moment of second order I, and sectional coefficient 
Z of sections a) to c) shown below. However, as for case c), since the section is not symmetrical 
ies with respect to the nettral axis, the sectional coefficient is delivered in two kinds: Z,, Zo. 


Ed 


anal 


si at 








C LOAD YpgY _ {ENTER 


H 
fA = 


1354. 166667 


HI = 
o= 
I 
Z 








180 .5555556 


A =b,h,—b:ih, 


-- Pro- 
2S ign b,h?) gram 
12 A 

21 


ar, 


= by hyt+ beh, 


] 
“1 ,hf+ beh,’ ) 


Cc 





1 
=a (bse? bih# + bes) 


__bih’+ beh? 
2 (by hyt+ beh, ) 
1 i 
Z, = ,Zy,>7> 
ey €2 





a B=] 
if = 


196 .6666667 


Z1= 25.65217392 











Z2= 84.28571431 








SHARP 


‘ PROGRAM NO. 
Title A, |, Z OF VARIOUS SHAPES (PART 2) 


PpP4-—D-9 


[ Example ] 
a) In the drawing, h, = 10cm, h, = 15 cm, by =4cm, b, =6cm 
(A = 50 cm?, I= 1354.16 cm*, Z= 180.55 


c) In the drawing, hy = 2cm, h, =10cm, 6b; = 10cm, b, = 1 cm 
(A = 30 cm’, 1= 196.66 em*, Z, = 25.65 em?, Z, = 


[ Operation ] 
CLOAD Vpg9V 


In the case of drawing a) 
Selection J (B) In the case of drawing b) 


In the case of drawing c) 


(hy) (ENTER 
(hy) (EATER 
(bi) ExTeH) 
(bz) (ris) (A) 
(1) 
NOTE (Z) 





NOTE) When(Cjis selected, two outputs are delivered for Z (namely, Z; and Z)). 














; PRO 
Title A, 1, Z OF VARIOUS SHAPES (PART 2) 


Memory content 


ef 
esp em 
h 


behz 



















10: "A":GOSUB 500 

20: A=D-C 

30: I=(F<E)/12:2=2*1/G6 

40: PRINT "A="4A 

SO: PRINT “I=",1 

60: PRINT "2Z="42 

70: END 

80: "B':GOSUB 500 

90: A=D+C:E=-E:GOTO 30 

100: "C":GOSUE 500 

410: K=(C*H+D*G) /2/ (C+D) 

120: A=D+C 

130: I=((B+J) *K*3-Bx (K-H) 345% (G-K) *3)/3 

140: Z=1/(G-K) sY=1/K 

150: PRINT “A="7A 

160: PRINT "I=",I1 

470: PRINT "Zi="4Z 
: PRINT "Z2=",Y 








































500: USING :INPUT "H1= "“7H-"H2= “7Gr"B1= "7B 
J 





510: C=H*B:D=GxJ 
520: E=CxH*H: F=D*G*G 
530: RETURN 

322 
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SHARP 


Title IMPEDANCE IN A SERIES CIRCUIT ee 


[ Formula ] 


Impedance in a series circuit 


R Cc L . = ae fhe 
z= lii=/SR+ (ob 2 (a) 
o 


=tan—! ¢ 
Z=Rt+j CoL— 


[ Example ] 


L = 25 
Cc = 10 
R 
f 


=5 
= 50 


[ Operation ] 
C LOAD VE 1 V_ ENTER 


(L)25E—3 (Enter 


(C)1OE—6 (ENTER) 
(£50 (ENTER) 


5 
A | PHASE—89.077 -~ 








[ee] safes Pen] @ [ee | | 





— 
Title IMPEDANCE IN A SERIES CIRCUIT 
























ai 2 “A':DEGREE :INPUT “L="sL 
30: INPUT "R="FR 
40: INPUT “FCHZ)="CF 
60: L=LeF 
| 20: caer 
90: 2=fCR*eRtI*¥I) 
P| ton: xeacs crv 2) 
110: IF O>ILET X==X 
120: USING 
Pe a dl 130: PRINT "X"ZR 
Po 140: PRINT "Y",I 
150: PRINT “Z",Z 
160: PRINT “PHASE”, X 
172 


Ann = 
| ~~ 














Pt Tt TT IN) <|</]</¢[4/w|2]0/0]0/2/2/r]a/¢|-|z]0/=)m/0/ 0/0) 
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SHARP 


Title IMPEDANCE IN A PARALLEL CIRCUIT es NO: 


[ Formula ] 


Impedance in a parallel circuit 








{ Example ] 
TEBE 
0 = 21.88 
x = 6.251 
y = 8.307 
“.Z = 6.251 + 3.307 j 


[ Operation ] 


C LOAD V E 2 9 (ENTER) 








(SHFT] A 


(L)40E~8 (EnTeR 


(CO.5E-6 (ENTER) 
(R) 8 (ENTER) 
ENTER 


(£60 






































en 
tl 
— 
een eae SE EL 

. ieee eer 
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. PROGRAM NO. 
Title IMPEDANCE IN A PARALLEL CIRCUIT 


Memory content 

















P| 10 MAN SDEGREE ZINPUT "L="ZL 
20: INPUT “C="7C 
40: INPUT "FCHZ)="7F 
50: F=2e*F 
60 Let 

80: I=1/L-C 
90: R=1/R 
ia 100: Z=fCR*R+I* I) 

110: X=ACS (R/Z) 

120: IF O>ILET X=-x 

130: Z=1/2 
| tae Rezecos x 

150: I=Z*SIN X 

160: USING :PRINT "X"R 

170: PRINT "Y"sI 

180: PRINT "Z",Z 


¢|=|z/0|-/m|olo/a/>| 
: =I 


—_ 
=~ 





190: PRINT “PHASE”, x 
200: END 
204 


C 
L 
Phase 


Z 


N|</x/8]</¢/4/o/9/0/v/0]2/2/r|> 


Ble SiS(=lsleis. 
—_ 
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SHARP 


5 PROGRAM NO. 
Title SELF-INDUCTANCE ON A STRAIGHT LINE ae 


[ Formula | 









Computing the self-inductance on lead wire or printed wire 













41 
L CgH)=0.002 2 Cin 


d 
Eos! 
4 41 
Lo CuH}]=0.002! (1n 
Ce 
ap 








Where uw: relative permeability 


When the frequency is fairly high, use the 
upper equation, and when low, use the lower. 


Answer L = 0.07 [yH] 





[ Operation |] 
C LOAD VE 8 ¥7 (ENTER 
* When the frequency is low and y, is taken into account. 
(SHFT] (A) 


Ar (ENTER 










PEWTER] 







d (ENTER 








Input Display 


a 
1c a 
CC 
Pre 
4 eo 

i aH 

4 


Title 


SELF-INDUCTANCE ON A STRAIGHT LINE 





— content 
































pA 
Bo 
Do 
Ee 
fa 
Go 
/H 
Ee 
K 
|M 
LN 
0 
P| 
Kl 
Ri 
|S 
pu 
a 
|W 
x 
| 








2 VAT SINPUT "UR="7Z 
: INPUT "L="7A 
30: INPUT "D="7B 
: L=.002*Ax(LN (4*A/B)-1+2/4) 
Q: USING :PRINT "LO",ZL 
2 “BY SINPUT "L="'7A 
: INPUT "“D="7B 
SQ: L=.002*A*(LN (4*A/B)-1) 
J: USING sPRINT “L'ZL 
OO: END 
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PROGRAM NO. 
P4-E—8 





SHARP 


- : 
Title A > Y TRANSLATION 


[ Formula ] 


a= 7 ey aie 


Zi axit yi 


| Example ] 
Ri= 5 = ’ Z, = 1.176 —0.18j 
Nee 3 - = Z, = 3.10 — 0.38 j 
Z, = 2.09+ 1.97} 


[ Operation ]} 
C LOAD VY E 4 V7 (EATER) 
































CN C2ZNE EP 
[2B8.100--—8.800 [Res xe |i9 
fol ara 202 tor Te TR fa 


—139= 














INPUT "21 
INPUT "Z74 
: GOSUB 600 
: GOSUE 500 
: BeU:C=V 
: INPUT "Z2 
INPUT "Z2 
: GOSUB 690 
: GOSUE 500 
: D=U:E=V 
INPUT "Z5 
: INPUT "Z3 
: GOSUB 600 
: GOSUB 500 
Fell:G=V 
X=S:Y=aT 
: GOSUEB 500 
H=U:I=V 
> X=BeD/H:Y=C+E-1:GOSUB 700 
2 JSUrkK=V 
: X=D*eF/H:SY=E+G-1 
: GOSUB 700 
: L=U:M=V 
X=Be F/H:Y=C+G=-1 
: GOSUB 700 
2 N=U:0=V 
: USING :PRINT "ZA "7J7" "GK 
: PRINT "ZB "sb7" "7M 
: PRINT "ZC "sNe" "70 
2 Usp CX*XxX+Y*Y) 
: V=ACS (X/U) 
IF O>YLET V=-V 
: RETURN 
2 S=X+SiT=YtT 
: RETURN 
2 UEX*COS Y:V=X*SIN Y 
RETURN 
END 


ng 
4 
15 
8 
ta 
19 
20 
24 
2a 
29 
24 
25 
26 











Mt 
UN 
| 
/P 
Kl 
Ri 
S| 
cu 
a 
ci 
Ea 
: 
- 
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SHARP 


2 PROGRAM NO. 
Title Y > A TRANSLATION 


{ Formula ] 


This program translates the impedance in a Y-shaped connection to its equivalent in a 
triangular connection. 


Lic rE; A=Z, Dy AOD Z.+Ze rae 
2,2 A/Z, Zi= xp ty; 
Zs=A/Z 


[ Example } 
Ra 


( 


Xa 


Z, = 14.97 + 16.65 j 
Z, = 23.25 — 9.21j 
Z; = 26.97 — 0.74j 


[ Operation] c LOADVE5¥V 


Input 
A 
a8 — ENTER) 


— 


id 


HF 


Ee) 


= 
R 
ag 
ar 
w 
= 
= 
z 
=) 


| 


= 


Rp)9 


= 
= 
= 
aa] 
= 


= 
Pol R 
a ~ ad 
wi 
A 

on 
3 | 
zz = 
—_— = 
olla 
= = 


oN 
R 

a 
Ww 
for) 


| 








fe 
= 
= 
[eal 
= 










a PROGRAM NO. 
Title Y + A TRANSLATION Saas 


Memory content 


ita 


ep 
rab 

















































10: “A'SDEGREE sINPUT “ZA R="; 
20: INPUT "ZA X="7Y 

30: GOSUB 500 

40: B=U:C=V 

50: INPUT "ZB R="7X 

60: INPUT "ZB X="7Y 

70: GOSUB S500 

80: D=U:E=V 

90: INPUT "ZC R="7X 
100: INPUT "ZC X="*sY 
110: GOSUB 500 

120: F=U:G=V 

130: x=0:Y=0 

1406: FOR A=4TO 7 

150: H=B*ACA) 

160: A=A+1 

170: I=C+ACA) 

180: X=X+H*COS I 

190: Y=Y+H*SIN I 

200: NEXT A 

210: H=D*F 

220: I=E+G 

230: X=X+H*COS I 

240: Y=Y+H*xSIN I 

250: GOSUB S00 

260: H=U:I=V:P=10 

270: FOR A=2T0O 7 

280: X=H/ACA) 

290: A=A+1 

300: Y=I-ACA) 

310: ACP)=X*COS Y 

320: P=P+1 

330: ACP)=X*SIN Y 

340: P=P+1 

350: NEXT A 

360: PRINT "Z7 "sie" "7M 
370: PRINT "Z2 "ZNe" "70 
380: PRINT "23 "“sd7" “7K 
S00: U=fCX*xX+YxY) 

510: V=ACS (X/U) 

520: IF O>YLET V=-V 

530: RETURN 
END 
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SHARP 
Titl CAPACITANCE ACROSS TWO PARALLEL PROGRAM NO. 
ite ELECTRODES P4—-E-6 


{ Formula ] 


Length 
Width 
Inductivity. 
Space 


(€,=1: air) 


LW 
CC pF 3 = 0.0885419 oe ips 


0:2 ( 100W>L ) 


d 2nW 
—(Il+Ila_”a > (L100 W 
= i I2 (LE ) 


[ Example ] 


=A =] 
0.01 CcmJ) = 0.01 CcmjJ 
= 20 C cm J = 300 (cm) 

= | C cm } = 3 
Answer 177.08 ( pF J 8040.99 { pF J 


[ Operation ] 
C LOAD VE 6 VW [ENTER] 


ENTER 


fsfel=[-Jele[=[e[=[-] | 
= 
A) 





Tit! CAPACITANCE ACROSS TWO PARALLEL PROGRAM NO. 
ItlI€ = ELECTRODES P 4~E-6 


2 "A™SINPUT "LCOCM)="7A 

: INPUT “WCCM)="78 

: INPUT "DCCM)="FC 

: INPUT “ER="'7D 

: IF (€100*B)>ALET P=0:GOTO 70 
: P=C/H/Be(14+LN (247*B/C)) 

> Q=0.0885419%D* A*B/C*(14+P) 

: USING :PRINT "C "7Q;" (PF) 
: END 


SE RORUBORE 


2 
iy 
| 
5 
iG 
a 
| 
A 
1g 
ay 
12 
ng 
4 
15 
6 
a 
9 
20 
24 
2a 
2a 
24 
25 
25 





Pt TT IN| <|x/s]<[e[4/o/a/o//o/z/2/r [>| 
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SHARP 
. SECTION, DEAD LOAD AND CENTROID OF A PROGRAM NO. 
Title POLYGON pP4—-F-1 
[ Formula ] 


This program finds the sectional area and centroid of a polygon from its latitude and departure. 


[ Example ] 


—0.700 r=2.0[ t 7) 
> A=3.501 [77] 
W=7.003(t) 
9316  *e=0.980(m) 
Yo=1.231(m) 








[ Operation ] 
C LOAD ‘Fri’ 


NOTE) AX and AY are, when input, accompanied by a sign 
respectively. 



































Rechecking 
permissible 














ENTER) 


(ees 


> [ENTER 


























Title —poLtyeo 


SECTION, DEAD LOAD AND CENTROID OF A 
N P4—-F-1 


ral 


M4 
7 


—_— 
wd bao 


>| > 
re R 


Bo 
/D 
Ee 
ia 
|G 
/H 
es 
pK 
|M 
LN 
0 | 
|p 
Ky 
Ri 
|S 
pu 
vo 
|W 
x 
Ea 
el 
et 
ea 
a 
ie 
i 
ae 


: “A™sCLEAR 

: INPUT "XO= "7B-"YO= "2Ds,"R= “7K 
: C=B:E=D 

: BEEP 2:INPUT "DX= "ZF,"DY= "7G 
: A=F*xG/2:H=H+A 

: IsI+Ax(Fe2/3+C) 

s J=J+A*(G/3+E) 

: A=FeESH=H+AsJ=J+A%E/2 

s I=I+A*xCF/2+C) 

2 C=C+F:E=E+G 

: IF C<>BGOTO 40 

: IF E<>DGOTO 40 

: PRINT USING “#HH#H#HH AHRR' FS" A="7H 
: PRINT "W=",H*eK 

: PRINT “XG=",I/H 

: PRINT “YG="4J/H 

: GOTO 130 
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SHARP 


. PROGRAM NO. 
Title COULOMB’S COEFFICIENT OF EARTH PRESSURE 


[ Formula } 
This program determines the coefficient of active earth pressure from coulomb’s earth pressures. 
In seismic case 
Kea= cos *( d—6 9-6 ) : 
cos Ao cos? G cos(O+0o+0) [ 14 Sagi sno Oo) is 
In permanent case 
K4 =Kga (60 = 0) 
angle closed by earth surface and level surface 
internal friction angle of back-filling soil 


angle closed by wall back surface and horizontal surface 
angle closed by wall back surface normal line and earth pressure active direction 





[ Example ] 


g=35° 
eae 
66= 11.19" 
8=0 

Ka= .4348 
Kpea= 5858 


a=0 


[ Operation ] 
C LOAD YF2Y 


| (sar a 
[035 (wre) PHI=35 | 


afta) © ara AvPHA-0 | 

[Cover enal THETARe Las | 

s[en ir ena] THETA O= 179] 

[Gy 0 wm[pertaco | 

h[____[xearosesese [| 
fal 


Display Not 
=3 










Memory content 


RICE 
= 


met 
BBP (S(Sieisislelslalalelsisl=lslele|slolalalel[sy| 














cos *( $—O0—8 ) 


















Pt TT IN| <|<[)</¢|[o/a/0]0/0/2/3/r|a[¢|-|z]0| a /m/0) 


Title | COULOMB’S COEFFICIENT OF EARTH PRESSURE 


10: “A':DEGREE :INPUT "PHI= ";7A/"ALPHA= "7B 

20: INPUT “THETA= "ZC-"THETA O= "7D-"DELTA= 
"OE 

30: F=COS CA-D-C) “2 

40: G=COS D*COS CA2*COS CC+D+E) 

SO: H=fC(SIN CA+E)*SIN CA-B-D)/(COS (C+D+E)* 
cos (C-B))) 

60: I=F/((1+H) 42*G) 

70: USING "####H HHRRRH" 

80: IF D=OPRINT "KA=",1:END 

90: PRINT “KEA="71: END 

216 
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SHARP 


Title STABILITY OF A SLOPE (METHOD OF SLICES) | p54 ¢-3 


[ Formula ] 


This program computes the safety factor of a slope which possesses C; and 6;. 





DV Cprl e+ VW; + OSa; + tang ; 
F,= : 
>wW;-sma; 


weight of soil above sliding surface 
radius 
angle closed by divided area and vertical line 
central angle for each soil layer 
weight per soil’s unit volume 
internal friction angle of soil 
cohesion of soil 
length of arc 
See the figure below 








Ist soil layer 





2nd.soil layer 


3rd soil layer 





4th soil layer 








Input Display 


— os 
~~ 
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SHARP 


Title | STABILITY OF A SLOPE (METHOD OF SLICES) | py ro 3 ~ 


[ Example ] 
R=15m ( t/m ) (degrees) 


Istlayer 0, =21.8° .578 a, = 69.8 
640 @,=62.4 
985 a, =55.0 
Qndlayer 9, —34.0° = 8.732 a, =48.3 
588 a, =42.6 
863 a, =37.6 
913 a, =33.0 
813 a, =28.5 
605 G@,=24.0 
.804 = 20.0 
3rdlayer ),=11.2° .730 @,=15.6 
.183 @,=12.0 
805 = 81 


[ Operation ] es = 
C LOAD ‘F 3” (ENTER) 

(SHFT] 

inva 
(ENTER) 
(EWTER) 


Every data for one layer 











Ta etd 

(@,)69S(ar| ALPHA=6S 

Ww yssKaa] WA 

fe eee ed 

atts ALPFIA-55 a kaa 
een eee eae! 
Sk 


(enter) | THETA=2 1.8 















F PROGRAM NO. 
Title STABILITY OF A SLOPE (METHOD OF SLICES) 


Wd 






: "A™:SDEGREE :CLEAR 
20: INPUT "R= "7D 
30: B=O0:BEEP 1:INPUT "W= "7B 
40: IF B=0GOTO 80 
50: INPUT "ALPHA= "7C 
60: E=E+B*xCOS C:F=F+B*xSIN C 


80: INPUT "THETA= "36,"C= "oH," PHI= "OA 
Pe | 90: terete tan a 


S Wsin a tan g 100: J=J+0*D*G*H/180 










oO 












110: E=0:G0TO 30 

120: “B':K=(I+J) /F 

130: PRINT USING "###H# AHHHHE' SU FSH" 7K 
140: END 


J1°C 









[xc |-[z/o[a[m|ola|w 
e/a [s[sls/Slslelsl=lelsl=lslsl=lsl=l=l=l-l=[=[=/5) 





Pt tt tt IN| <|x/e/<[e[4/o/a/o[s/o[z/3) 
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SHARP 


Title BENDING STRESS OF SIMPLE GIRDER ea NO. 





[ Formula ] 


When a concentrated load P acts on an simple H-shaped steel girder —— see below —- with span /. 


- Reaction force: 


ess: 
= 











Bending moment: 








Mx=Ra4-a 





Section modulus: 


, Rae 
@) | 
a 
l 
W=(f -h°—h’*+( f—-t))/6h 
Stress 
Mx 
§=—— 
t h’ W 
[ Example ] 
t f=40 (em) 

















t=1.8 (em) 
h=4 0( em) 
h=36.4 (em) 
[ Operation ] . = 3006C an 
C LOAD YF 4Y gare 1=10000 (em) 
a=5000(em) 
b=5000 (em) 








EWTER]}} RB=6500 


ENTER] } MX= 32500000 











Repeat step 6 and 
the subsequent. 





(h‘) 36.4 
(P) 13000 P=13000 
(1) 10000 L=10000 
(a) 5000 
(b)5000 


= 
i 
m 





| 


Poa] 
= 
nm 




















RA=65 00 





: PROGRAM NO. 
Title BENDING STRESS OF SIMPLE GIRDER 


Memory content 


Lc eee 
Bip 
Cia 
So a 
Espey 
ee 




















10: AN STNPUT WES "Be T= "OC "H= "SD ,UHeK= 
WEE 






20: BEEP 2 
30: INPUT "P= "-FF,/“L= "2G,"A= "sH,-"B= “71 
40: J=F*eI/G:M=F*eH/G 

















Ci 
60: A=(B*D*3-E%3* (B~C)) / (6*D) 
ee, oe 






80: USING :PRINT "RA=",J 
90: PRINT "RB=",M 

100: PRINT "MX="",K 

110: PRINT "SIGMA="-L 
120: GOTO 20 


197 





isa 
re 
i 
~| > 


[=|=[#|<[¢]4[4/2/o/v]o/2/=| 
sle[slsislsislelelslelelelalsl= 
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SHARP 


; INTERNAL FORCE OF A SIMPLE GIRDER PROGRAM NO. 
Title (UNIFORM LOAD) p4—-F-5 


[ Formula ] 


This program computes the reaction force, shearing force, bending moment, and maximum 
bending moment of a simple girder that is subjected to a uniform load, shown below, 








Total load: [ Example ] 


W=ql 
i 1=15(m) 


q=8( tm) 
x=2,4,8,12(m) 


Reaction force: 
Ra, = Ra, =— 
Ay Ay 2 
Max. bending moment: 
2 
Muax =4 8 


The shearing force (Sc) and the bending moment (Mc) at point C which is X — arbitrary 
distance —— apart from support A. 


Se=q($-zx) 
Mc=qx(l—~—x)/2 


[ Operation ] 
C LOAD YrsY 


ENTER|| Repeat step 8 and the subsequent. 


Input 


— “i Te | 
~~! 





























: INTERNAL FORCE OF A SIMPLE GIRDER PROGRAM NO. 
Title (UNIFORM LOAD) p4—-F—5 
Memory content | 













10: "ANZINPUT "Q= "FQ,"L= "ZL 
20: WeQaL:RaW/2 

30: M=QeLaL/8 

4D: USING :PRINT "We "FW 






50: PRINT “RA,/RB=",R 

60: PRINT "M-MAX=",M 

70: BEEP 2@sINPUT "X= "7X 
80: S=Qx(L/2~X) 

90: T=QxXe(L=Xx)/2 
100: PRINT "SC="4S 
110: PRINT "MC="T 
: GOTO 70 

2 





—MAX 


RA,RB 


a 


4[o|x/o/v]o]2/2[r[>|¢|-|z/o|)m/ 0/0) 
LVTTATRRRGHUUAUUTE 
a 


st 
si[el(el[sis[=(slelelslslalslelsl=lslel=|~lalal[=je| 


[<|<|=]<|¢ 
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SHARP 


INTERNAL FORCE OF A SIMPLE GIRDER PROGRAM NO. 
Title (UNIFORMLY VARYING LOAD). Sane’ 


[ Formula ] 


This program computes the internal force of a simple girder that is 
subjected to such a uniformly varying load as shown below. 


Total load 
SY 2s 
W= 24 l 
Reaction force 


W 
Ra=3 


Max. bending moment 
q:l? Pex, 
Muax 9 173 773 
The shearing force (Sc), bending moment (Mc) and load strength (Wx = ) at point C 
located X — arbitrary —— from support A are computed by the equations 


Rg =2w 














Wr=wr a 
Sc=Ry,- We 
We =Ratx—We 


[ Example ] 


q=7(t/m) 
1=15(m) 
x=2,4,8,12,14 


[ Operation ] 
C LOAD ‘F6" (EMER 


Se ee a 
1 a 
ae ee Ce 
Laermer a 
W=52.5 
a 


= 

Q 

ws 
~) 


£)15 


on 


{ee 


m™)| (m= foal 
az] |= = 
=a I 
cay | m 
za|] (=o az 








o 
R 

—s 
wo 
™ 
E 
= 
E 


m 
= 
= 
m 
a 













Memory content 
RB 






je [a]e[=|z]o|=/m[o/o|o| 


[=]a|2)o/v/o]2/=| 
alesse (sl2lslslelslalsl=lels(=lslele|=[e[=[=[elsl— 


M MAX 


PTT TT TT IN <|x[2/</e 


INTERNAL FORCE OF A SIMPLE GIRDER PROGRAM NO. 
Title = (UNIFORMLY VARYING LOAD) uae? 


2 “A SINPUT “Q= “"7Q,"L= "FL 
2 W=QeL/2sA=W/3 :B=We2/3 
s M=QeL*L/(9%/35) 

: USING sPRINT “W=",W 

: PRINT “RA="7A 

: PRINT “RB="",B 

: PRINT “M-MAX="",M 

: BEEP 2:INPUT "X= "7X 
2 Y=QuX/L 2 Y=YeX/2 

s S=A-YsT=AxX-YaX/3 

: PRINT “SC=",S 

¢ PRINT "MC=",T 

: GOTO 80 
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SHARP 





Title VELOCITY OF FLOW AND FLOW RATE (MANNING'S PROGRAM NO. 
FORMULA AND GANGUILLET-KUTTER’S FORMULA) P4—F-7 










[ Formula ] 


1) Manning’s formula 






2 1 
val.Rpr-it 
n 














where V : average velocity of flow on the whole section of flowing water (m/sec) 





n : manning’s coefficient of roughness 





R : hydraulic mean depth (m) (= sectional area of flowing water/wetted perimeter) 





I : surface slope (surface difference/waterway length (h//)) 


—L 
7 *R © (Chézy’s coefficient) and V. 







From R,h,/ and n are determined I, C = 






2) Ganguillet-Kutter’s formula 
V=CVRI 





[ Example ] 




































oe 23 +9:00155 CG) RS195 (a5 
1+(23+200188.) . —a— h =2.13(m) 
in which V : average velocity of flow on the whole £=10(m) 
section of flowing water (m/sec) n=0.013 
R_ : hydraulic mean depth (m) 
I: surface slope (2) R=0.333333(m) 
C : Chézy’s coefficient h = 2.6 (m) 
n : coefficient of roughness £=10(m) 
I,C and V are determined from R, h,/ n=0.013 
and n. 











[ Operation ] 
A program: Manning’s formula 






C LOAD YF? Gm 









B program: Ganguillet-Kutter’s formula 






















st] (B) |G.KUTTER PF 
Coye6 wml AZO 
€2)10 L=10 tea al 
a 
| C= 65.8286 3921 re ia 
ayes —[—— 
eae aes 
ae ae 


[et | Bieiey | te 
taal [waNe 
fa(CR) 2b] R=25 
pa] rare n=2 15 rae] 
P4](2) 10 (enren)} L=10 
5 | 
6 | 
1 
8 
8 
9 





| 


faa] 
= 
= 
m 
= 


(> 












[ual 
=z 
= 
rm 
= 








[aa] 
== 
= 
m 
= 






| 












n) .013 N= .013 
1=0.213 
C= 7983775504 


ENTER]| V=41.19581743 





mS] oF 
ral | (es 
= 
= 
m 
EJ 












(rm Tan] 
= =z 
= a 
m m 
= a) 

















= 
= 
m 
= 


_ 
~ 
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1 VELOCITY OF FLOW AND FLOW RATE (MANNING’S PROGRAM NO. 
itle FORMULA AND GANGUILLET-KUTTER’S FORMULA) P4—F-7 


Memory content 





























: “A':PAUSE "MANNING" 


20: INPUT "R= "FR/"H= "ZH/"L= “ZL /"N= "GN 
| 30: I=H/L:C=RA(1/6)/N 


40: V=R°(2/3)%/ I/N 

50: USING :PRINT "I=",I 

60: PRINT “C=",C 

70: PRINT “V=",V 

80: END 

90: "B'SPAUSE "G.KUTTER" 
100: INPUT “R= “fR-"H= "ZHA-"L= “"slL-"N= "GN 
110: I=H/L 
120: C=(1/N+234+.00155/1)/(14+(234+.00155/1) *N/ 

YR) 









> 








a 





a 





130: V=Ca/(R*I) 
140: GOTO 50 
250 





[[o[2]o/vlo/z/=/-]a[¢|—|2/o/=/m| 
— 


= 
sleiejeis[eislslelslalalslelsl=lslele| 

















at 
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SHARP 


Title VELOCITY OF FLOW AND FLOW RATE 
[ Formula ] 


(1) Hazen-William’s formula (open channel) 
V=0.84935C-R%°* 


Ne: 


J % 54 


average velocity of flow (m/sec) 
coefficient of velocity 
hydraulic mean depth a 
hydraulic gradient (I= 7 ) 
channel length (m) 
surface difference (m) 

V are found from R,h,I and C. 


C 
R: 
| ie 
L 
h 
I 


and 
(2) Hazen-William’s formula (closed channel) 
V=0.35464C-D%8.- 
Q=0.27853C -p**. 
h 


1 =3 


J 9.54 


1 254 


pipe diameter 
coefficient of velocity 
surface difference (m) 
channel length (m) 


This program determines V and Q from 
D,h,/ and C. 


[ Operation ] 


C LOAD ‘F8” {turer 


{A] program: Open channel 


program: Closed channel 


C=100 


veer [| 
(caereeetee! eat 
ans ies) 
eres ae [es] 

















lslele[~folelejelst-| | 


PROGRAM NO. 
P4—-F—8 


(average velocity m/sec) 


(flow rate m/sec) 


i (hydraulig gradient) 


{ Example ] 


R=1.25(m) 
h =2.13(m) 
!=10(m) 
C=100 


D=0.6(m) 
h =2.13(m) 
£=10(m) 

C=100 


Display 
D=.6 
H=2.13 
C=100 


Q=3.153078285 





Title 







Memory content 

















Bl? 
Cc Cc 
Co aaeaOeE 
| 

F 
G 

lH h 
nom 
J | 
K| 
| 





< 
pare 


<|=/<[¢/4|4|2/0/v/0/2/2) 
e//8(8(818 8 slelSlslels (elses lel=[= [eels [ot 


te 1. 























ee ee 





VELOCITY OF FLOW AND FLOW RATE 


: "A':PAUSE "H.W 1" 
: INPUT "R= “ZRe"H= “FHA"L= “sb o"C= "7 
: I=H/L 

2 V=.84935eCER* 63% 1% 54 
: USING :PRINT “I=",r1 

: PRINT "V="ZV 

: END 

: "B'SPAUSE “H.W 2" 


INPUT "D= OD oe" H= “SHe Ls 9 
I=H/L 

V=.35464%CxDA .63*I%.54 

Q= .27853%CADA2 63% I4% 154 
USING :PRINT "“I=",I 

PRINT "V="/V 

PRINT “Q=",Q 


END 
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PROGRAM NO. 
P4—F-8 


SHARP 


; PROGRAM NO. 
Title CHANNEL SECTION P4A-F—9 


[ Formula ] 

















A) Rectangular section 
Sectional area A=B:+H 





Wetted perimeter S=B+ 2H 
Hydraulic mean depth R=A/§S 


B) Triangular section 


-lip. 
A=5B°H 





R=A/S 


B 
H 
S=2xV/H? +4 B? B 
H 


C) Trapezoidal section 
A=BH+H?xq— 
tan @ fake 
H 


oe = E 
S=B+2HXon 9 





R=A/S 






B 








[ Operation ] 







C LOAD “F9" {Enter 






(A) program: Rectangular section 


program: Triangular section 






(C} program: Trapezoidal section 






(D} program: Circular section 















[tnput[_isslay [Note | 
[at a [Rsctancee [| 
| 
I 


A=8.0000 fo | 


eet 

| fs ae 

| ej [R=1.0000 | a] R=o7o71 
| aa 

oe ael 

fie 

fh el 


Display 
Hi] (siFt} (B} | TRIANGLE P| 
2] CB) 4 (amen | B=4 Pe 
ral c2 ana [=> 





















14) A=4.0000 











pee S| pe ee fe 





aie 
as ee 

eee es ee || eee 

Se ee ae ( 
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SHARP 


Title CHANNEL SECTION PROGRAM NO. 


P4—F-9 














D) Circular section 


ya 
Ny 


A. B> z » A=8,S=8,R=1 


[ Example ] 





A=4,5=5.6569 ,R=0.7071 
= A=~10.3094, S= 8.6188 , 
R=1.1962 
A=0.6319 S= 2.0944 


R=0.3017 


Display Input Display 
TRAPEZOID SKFT} {Dj} | CIRCLE 
——|---- 
ae a THETA=60 (r).5 iewten! | R= .5 


a 4 (ewrtn) | Bua (6) 24 Olnten| THETA=24 0 




















CH) 2 inten) | H—2 A= 0.6318 
A-10.3094 (ENTER]] S~ 2.0948 
S=8.6188 i ENTER]] R= 0.3016 
R=1.1961 




















7 





























ENTER) | ENTER} 
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Title CHANNEL SECTION 


Memory content 
PATI] a 
 B | B 
cls} ¢ 
fo ae 





i 














Se 
Se 
a 
CS 
pe 
x 
pee ea 
i ae 
(1 
Ct 
Rl eo 
2 —__ 
Ll 
Cl 
1 
Ci 
a 
LY [2s 
at en 
ss 
es 
Pe 
ener 
2 
a: Seas 


PROGRAM NO. 
pP4—F-9 


“A™SPAUSE “RECTANGLE" 

GOSUB 500 

A=Bx*H :S=B+2*H 

GOTO 180 

“B':PAUSE “TRIANGLE” 

GOSUB 500 

A=B*¥H/22:S=2%/ (H*H+BeB/ 4) 
GOTO 180 

"C':PAUSE “TRAPEZOID" 

INPUT “THETA= "7C:GOSUB 500 


: A=B*H+H*H/TAN C 


S=B+2*H/SIN C 


: GOTO 180 
: "D'3PAUSE "CIRCLE" 
: INPUT "R= "ZRe"THETA= "ZC 


A=R*R*(CHIT/360-SIN C/2) 

S=C/180*7tR 

R=A/S:PRINT USING “#HHHAHH AHHH" SAR" A 
PRINT "S="7S 

PRINT “R="ZR 

END 

INPUT “B= "7B-"H= "7H 

RETURN 
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SHARP 
Titl STRESS INTENSITY OF SINGLE REINFORCE PROGRAM NO. 
tie REINFORCEMENT’S T-SHAPED SECTION pP4—-F-10 | 


[ Formula ] 











Overall height 
d+a' 




























Bte View of single reinforcement’s 
doom dAs +3 _ T-shaped section 
nAs +By B_: flange width 

pice A § t : flange thickness 

Mo’: bending moment (t- m) 
nP +5 ( 4 ye S _: shearing force 
pang Z ) young’s mau . 
As : total sectional area of tension bar (m?) 
as 3K—2¢ f x : neutral axis position 
De NE Nn, ae 
aaa Example) M = 11,500,000 (Kg + em ) 









F . S= 38,500 (em ) 
© Tensile stress intensity of reinforcement ie 
n = 
65 =~, - 
5 PiBd* Ct fmt) As = 85 ( mt) 
© Compressive stress intensity of concrete a Len) 
. Bo= 55 Cem) 
terete Oe: bea) = 100 (en) 
t= 18 (cm) 


© Shearing stress intensity 






Ct /mt) 
[ Operation ] 


C LOAD ‘F10° ENA) 


eee ee 
tT Bojd 









K=0.3576 
J=0.9200 



























S=33500 
N=15 
AS=85 
B=170 
Bo=55 
D=100 
T=18 


(S)33 500 [ENTER] 
(n)15_ (EwTeR 
CAs )85 (ENTER) 
(B)170 (ENTER 
(Bo ) 55 (ENTER) 
(a }1 0 0 (eyren| 
(é) 18 (ENTERI| 









































































CAs ) 6 5 (EWTER} 



































Title STRESS INTENSITY OF SINGLE REINFORCE PROGRAM NO. | | 
REINFORCEMENT’S T-SHAPED SECTION P4—-F-—10 


oo) >| 
=I 


—_ 
~—l ~ 


2 “AN SINPUT "M= "SM-"S= "ZS/"N= “GN AS= 
"OA 


2 INPUT "B= "3B-"BO= "3C,"D= "3D, "T= ef 
> X=(N*xD*A+BAT*T/ 2) / CNX A+B*T) 

: P=A/B/D 

: K=(N*P+CT/D) 42/2) / (NXP+T/D) 

2 J=1-T/D*(3*K-24T/D) /C2*K-T/D) (3 

: F=M/(P*J*B*DxD) 

: G=K/(N*(C1-K) ) *F 

: H=S/(C*J*D) 

: PRINT USING "#HH#HH#HHHHH HAHA X=" 7X 
: PRINT “P="7P 

: PRINT “K="3K 

: PRINT "J="7J 

: PRINT "SIGMA S="7F 

: PRINT "SIGMA C="7G 

: PRINT “*TAU="7H 

: INPUT "AS= "7A 

: GOTO 30 


a 





/D 
ie 
iF 
/G 
PH 
ee 
pK 
/M 
LN 
0 
‘ei 
Ky 
PR 
Ss 
|U 
Lv 
(Ww 
x 
Z| 
: 
as 
ea 
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SHARP 








Titl SECTION OF SINGLE REINFORCEMENT’S PROGRAM NO. 
tle T-SHAPED GIRDER peop 









[ Formula ] 








: flange width 





: flange thickness 






n  : ratio of moduli of elasticity 






Mo : maximum bending moment 
(¢- m) 

verall oca : allowable compressive stress 

of concrete (t/m?) 







asa : allowable tensile stress of 
reinforcement (t/m?) 











Covering, 








As x : neutral axis position 


Reinforce- 
ment 





L As’ : sectional area of tension bar 















L As : sectional area of compressive 






















; : reinforcement 
View of T-shaped girder 
; { Example ] 
ae As'= —M— 
Osald-= ) M= 11,500,000 (K¢-em) 
m=1(141) a 
4 k Oca= 55 (K¢ ent) 
Z=5—M stmt | kh = ee _ 
20caBit”™ Osa+n0ca Osa- 1,400 (K¢vert) 
d’=Z+/Z7—Wet? n= 15 
x=kd t= 17 (em) 
_GcaBt t B= 170 (em) 
uae Osa 1 Xx ) 
d= 125 (em) 









[ Operation ] 





C LOAD “‘F11"  (iiiea) 













Input 


-—wispiay [ote [| input | Dieplay | Note 
eee ee (0) caren 
M)LISOO000(ENTER) M=11500000 ft omen) | Z=5 1.8870 
[13] uren| DX=101.2069 
= ma [earsen 
15 
ed 


(n)15 (ENTER = 
aa 
| 
as 
aes 


(Gca) 55 (ENTER 
16[ —__EWTER) ASX=70.5088 


ay 


Bi 

















SIGMA S =1400 











(t)17~ (EWE 
7| (B) 170 (Ente 


Cd) 125 (ewer! D=125 


| 


2 





=) 
=I 
nal 
= 





(Osa) 1400(ENTER 


: 


29 
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— 





= = 
=> 





= 
~ 



















Tit! SECTION OF SINGLE REINFORCEMENT’S 
tie T-SHAPED GIRDER 


Memory content 


Oca 
d’ 
AS’ 


PROGRAM NO. 
P4—-F-11 







o|m|>| 
=I 


oh 
—~ aces 


Q 


10: “A™:SINPUT "M= "sM,"N= “SNe"SIGMA C= "7C 
o"SIGMA S= "3S 
20: INPUT "T= "7T,“B= "7B8-"D= "7D 
30: F=M/S/(D=-T/2) 
40: K=N*C/(S+N*C) 
50: W=1/3/K:L=(14+1/K) /4 
60: Z=M/(2*eC*B*T) +L*T 
70: E=Z+J( 2% Z~We THT) 
80: X=K*E 
90: G=C*B*T/S*(1-T/2/X) 
100: PRINT USING "###H##H#HHH HEHE SKE" 7K 
110: PRINT "SM="FL 
120: PRINT "W="ZW 
130: PRINT “Z="7Z 
140: PRINT "“De="F7E 
150: PRINT "X="7X 
160: PRINT "“AS="7G 
170: PRINT "AS*="7F 
: GOTO 100 





















_ [Nn] <|x]8[<[e]4/0]2/0/v/0/2/2/7/x/¢/-|z/o|-)m[o 
S/B/2 1S (8/818 ] ele |= 
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SHARP 


. PROGRAM NO. 
Title GRAPHIC CALCULATION ee es 


Inputting a figure 


Straight line: Enter the coordinates of a point 
on it and an angle required. 


x-coordinate, y-coordinate, angle 


Enter angles in degree. 
Ex. 30.5° 
135.0° 
The range of angles is to be within +180°. 





Straight lines are made use of for 
discrimination with their directinality 
considered. 
Fig. 1 Directionality of straight line 


As seen from Fig. 1 above, straight lines L1 and L2 are 
different in direction from each other. 


Circle: Enter its central coordinates and radius. 


x-coordinate, y-coordinate, radius 


Discrimination: When two or more answers exist in graphic calculations, required answers are 
found by inputting the condition of discrimination. 


For discrimination, input +1 or —1. 
Input nothing else than the above. 


e Answers in other programs than P4.-G—1 and P4—G—2 are rounded at 
the 3rd decimal place. 


es ie eles se) ae] ef = 





SHARP 


: PROGRAM NO. 
Title DISTANCE BETWEEN TWO POINTS AND ANGLE paiGa41 


{ Formula ] 


This program determines the distance between two points and the angle closed by a line passing 
these points and a line parallel to the x-axis from entered values of coordinates of the points. 


P2(x2,92) 
Xo—xi=Ax 
Yo vi Ay 
VArtAy=r 


Cx1, 91) 6=ACS (Ax/r ) 


x 


Fig. 2 Distance between Two Points and Angle 


[ Example ] 
When P, (0,0) and P, (10, 10), 
Angle 6 = 45° 
Distance r= 14.142 


[ Operation ]} 


C LOAD “G1” Gite 


ia 
[ENTER P2 X= 


(enter; | ANG (DEG) 45.000 


on 
= 
Oa 
foal 
= 
m 
E-] 


Ie 





= 
oO}; O 





feisi@ (sie lel sleet) | 
hs 
oO 


E 








Title DISTANCE BETWEEN TWO POINTS AND ANGLE 


Ci 





















: “ANSDEGREE sINPUT "P71 X="2X 
: INPUT "P1 Y="7Y 
30: INPUT "P2 X="7A 
40: INPUT “P2 Y="7B 
50: C=A-X,/D=B-Y 
60: E=/(C*C+D*D) 
70: F=ACS (C/E) 
SO: IF O>DLET F=-F 
90: USING :F=F+SGN Fx.9005 
100: PRINT "D(P1-P2)"-ZE 
110: PRINT "ANG(DEG)"-USING "“WHHHHHIH HHH? F 
1: END 
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SHARP 
PROGRAM NO. 


Title INVOLUTE, INVERSE INVOLUTE eae 


[ Formula | 


This program finds the involute function essential for the design of 
an involute gear, 


invg =tan 9 —@ [RAD] 


and also the inverse involute function by Newton-method as shown 
below. 


Pa ypepgee. feb) 
Gi 1=61 Ff Cbiy 


tan g—@ 


= 01 —Tan 7G 


Fig. 3 Involute 
SP: involute curve 
S : starting point of involute 


@ : angle of obliquite of action at point P 


[ Example ] 





@ in degree | Inv @ 
14.10° | 0050912 
23.00° 0230490 
25.53° 0320358 











[ Operation ] 
CLOAD ‘G2" 


SHFT Initial value 









Title | INVOLUTE, INVERSE INVOLUTE 


Memory content 
Me eral 







RICE 


[Loja a |e [| 





10: “A*ZINPUT “INITIAL="7Z 
20: INPUT “INV A="Z1 

30: DEGREE :USING :T=TAN Z 
40: R=1*Z/180 

50: D=(T-R-1)/T/T 

60: 2=180*(R=-D) /7 

70: IF INT (&8*D)<>OTHEN 30 
80: PRINT "A"sZ 

90: “B':INPUT “INPUT A="4Z 
100: X=TAN Z-70*Z/180 

110: PRINT “B'+X 

120: END 














JV 


raed 
av eore a 





= [a|2|o[vlolzis/r[xic/—|z 





PT tT TT tt IN| <}x< 2} <[e 
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SHARP 


THE POINT OF INTERSECTION OF TWO PROGRAM NO. 
Title STRAIGHT LINES P = L/L P4—~C—3 


[ Formula ] 


This program determines the point of intersection of given two straight lines. 


Li (x2, Mis A,) 


L2 ( x2, ye, G2) 


Fig.4 The Point of Intersection of Two Straight Lines 


[ Example ] 
Y 


Ll 


straight line that passes point 1 (0, 0) 
and crosses the X-axis at 45 degrees. 


straight line that passes point 2 (10, 0) 
and crosses the X-axis at —-45 degrees. 








L2 
Fig. 5 Example (P = L/L) 


[ Operation ] 
CLOAD ‘G3” ‘Entel 





Display Display 


aes Eek |!) ee ne 
CT ee em || aaa 


ANGLE T= a 
(att Er ae = eo ee 


ANGLE 2 = as eae eee eee 
| 






























Title THE POINT OF INTERSECTION OF TWO PROGRAM NO. 
STRAIGHT LINES P = L/L : P4-G—3 
Memory content 





O: "A'SDEGREE :INPUT "P41 X="7A 
Q: INPUT "P17 Y="78 

30: INPUT "ANGLE 1="57C 

40: INPUT "P2 X="'sD 

SO: INPUT "P2 Y="-ZE 

60: INPUT "ANGLE o="FF 

70: IF ABS C=90LET C=E5C:I=1:G0T9 99 

&0: C=TAN C:1I=0 

90: IF ABS F=90LET F=ESC:GOTO 110 
100: F=TAN F 

110: G=B-C*A:H=E-F*D 

420: X=CG-H)/CF-C) 

130: IF I=tLET Y=F*aX+H:GOTO 150 

140: Y=C*X+G 

150: X=X*(A8S X>E-20) :X=X+SGN X* OOS: Y=¥+ 

SGN Y*.005 

160: PRINT "PO"FUSING "#HAHEEH BE UENZY 
170: END 
285 

















[-[a[¢|~|z[o/=/m/0 [9] 


— 
ed Ber 





o See ag il 
R ow | w 


oO 


Poy 


[<[<[=[<[<]3)a/s/o/vloj2/= 
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SHARP 


. PROGRAM NO. 
Title A TANGENT LINE FROM ONE POINT P=P/C ed 


[ Formula ] 








This program finds a tangent point from a given point P1 and a given circle C1. 


Condition of discrimination: 






For discrimination, input 1 if the 
tangent point is located on the left 
of the line that passes point P1 
and the center of circle; otherwise 
input —1. 














(Xo, 4570) 









Pil 
(m,n) 





Fig.6 Tangent Line from a Point 







[ Example ] 


central coordinates (2, 2) radius 1 
point (0, 0) 












Fig.7 Example P=P/C 





{ Operation ] 








C LOAD Voa¥ ENTER 


input_| Display | Note | 
a | 















m 
= 
= 
m 
= 


pea 
= 
sat 
ee iT 
fares 
a 
eased 
Pe a 


m 
=z 
= 
aad 
= 


| 


m 
= 
= 
al 
= 


il 


J.L(1) R(-1)= 


mm 
= 
= 
m 
= 


I. 


me P Re RTwel] oO] Clfa 
= 
=m 
= 








| 
| 
| 
a Se ee (7) 
ae Sea ne) 
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. PROGRAM NO. 
Title A TANGENT LINE FROM ONE POINT P = P/C 


apy 







: “A'SDEGREE s:INPUT "P1 X="7A 
20: INPUT "P1 Y="5B 
30: INPUT "C1 X="7C 
40: INPUT "C1 Y="sD 
SO: INPUT "C1 R="ZE 
60: INPUT "J.L(1) R(-1)="FF 
70: G=C-A:H=D-B 
B80: I=/(G*G+H*H) 
90: J=ACS (G/I) 
100: IF O>HLET J=-J 
110: K=/{CI*I-E*E) 
120: L=ACS (K/1) 
130: M=A+K*COS* (J+FxL) 
140: N=B+K*xSIN (J+FxL) 
150: M=M+SGN M*.005:N=N+SGN N*x.005 
160: PRINT "PO"ZUSING "#HHHHHHH HH EMZN 
: END 














7 


Pt TT TTT IN| <[<[e/</e/4/o/2/0/v/o/z/z)r[a[¢|-|z/o[={m) 














wok 
~~ ~ 
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SHARP 


. POINTS OF INTERSECTION OF TWO CIRCLES PROGRAM NO. 
Title P=C/C P4-G—5 


[ Formula ] 


This program finds points PO, and PO, of intersection of two given circles. 


Condition of discrimination: 


To find the left-hand point of 
intersection that is located at the 
C2 left of the line passing the centers 
(X25 ¥2 2) of two given circles C1 — input 
first — and C2 —— input second — 
input 1; to find the right-hand point, 
input —1. 


PO 2 
Fig. 8 Points of Intersection of Two Circless 


[ Example ] Y 


C,: center (—50,—50), radius 50 
C,: center (0,0), radius 50 





Fig.9 Example (P = P/C) 


{[ Operation ] 
C LOAD Bie aa ENTER 





Display 
































S| let oie [alate pers | | 


lf 





Title POINTS OF INTERSECTION OF TWO CIRCLES 
p= cle P4—-G-—5 


Memory content 








R 







= 





10: "A':DEGREE :INPUT "C1 X="7A 
20: INPUT "C1 Y="7B 

30: INPUT "C1 R="ZC 

40: INPUT "C2 X="sD 

50: INPUT "C2 Y="7E 

60: INPUT "C2 R="ZF 

70: INPUT "J.L(1) R(-1)="76 

80: H=D~A:I=E-B 

90: J=fCH*H+I*I) 

100: K=ACS (H/J) 

110: IF O>ILET K=-K 

120: L=ACS CCCRC+I*J-F*F) /2/C/4) 

130: M=A+C*COS (K+G*L) 

140: N=B+C*SIN (K+G*L) 

150: M=M+SGN M*.005:N=N+SGN N*.005 

160: PRINT "PO";ZUSING "HHHHHHHH HH ZMAN 
170: END 











Judge 

















<|*|=/</¢/4/a/2/0/v]o/2/e[F|a[¢|—[zlo/=[m[olola| 





ine} 
° 
Xe 
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SHARP 


Title A CIRCLE TANGENT TO TWO LINES C=L/L 


[ Formula ] 


PROGRAM NO. 
P4—-G-—6 


This program finds the central coordinates of a circle tangent to given two lines Ly (x1, 1,62) 
and L, (x2,¥2, 0,3) with the condition of discrimination J, and J, and radius R known. 
L1 













(x2, y2) 







L2 








Fig. 10 A Circle Tangent to Two Lines 





(x1, 1) 





Condition of discrimination 
Ji: 





1 when a circle is created on the left of line L1 that is input first. 





—1 when a circle is created on the right of line L1. 






J,: 1 when a circle is created on the left of line L2 that is input second. 






~1 when a circle is created on the right of line L2. 






[ Example ] 
L1 





Li: line that passes origin (0, 0) 
and crosses the x-axis at 45 


degrees. 
4» x L2; line that passes origin (0, 0) 


6 Loe. and crosses the x-axis at —45 


degrees. 
R= 20 


J,: ~—1 because the circle is on the 
Fig. 11 Example (C = L/L) right of L1. 


[ Operation | Jz: 1 because the circle is on the 
left of L2. 


PO 28.28 0.00 
Pl 14.14 14.14 


Ewen] | P2 14.14 —14.14 
























CLOAD Yce” 


Input Display 
ii 














a 
= 
~ 
_ 





Oo 


1 


; 
a] 
=z 
m 
=) 


i eo a 


b 
wn 
i 
NY) 
baa 
| 





= 
E 
nN 
i 


\ 

> 

alo 
7) | (= 
me ||) ae 
m|||m 
ele 


J.L1 LQ),RC1)= 
J.L2 LQ) R@A1)= 


NO 
OQ 
FI 
a= 
= 
nm 
= 


| 
= 
= 
E 


NTE 
ENTE 





eee Vs Ts ee Vee | ee [ieee] 

° 

A 

m 

No) 

re 

| 
slels[slslalelsisi=| | 





| 
| 
| 
| 
| 





_ 
mm 





Memory content 








PROGRAM NO. 
Title A CIRCLE TANGENT TO TWO LINES C = L/L Seale 


: "A" SDEGREE :INPUT "L41 X="7A 
: INPUT "L1 Y="7B 

: INPUT "“L1 A="'7C 

: INPUT “L2 X="7D 

: INPUT “Le Y="; 

: INPUT "L2 A="7F 

: INPUT “R="ZR 

: INPUT "J.L1 L(1)-R(-1)="71 
: INPUT "J.L2 L¢1) -R(-1)="75 
2 X=C+90*1:P=C 

: A=A+R*COS X 

: B=B+R*SIN X 

2: X=F+904d 2 Q=F 

: D=D+R*COS X 

: E=E+R*SIN X 


IF ABS C=90LET C=ES0:Z=1:GOTO 180 
C=TAN C:Z=0 

IF ABS F=9QLET F=ES0:GOTO 200 
F=TAN F 

G=B-C*A:H=E-FxD 

X=(G-H) /(F-C) 


>: IF Z=1LET Y=F*eX+H:GOTO 240 
2 Y=C*X+G 


X=X* (ABS X>E-20) 


: K=P-904*1 
: L=X+R*COS K 


M=Y+R*SIN K 


: K=Q-90«J 

: N=X+R*COS K:O0=Y+R*SIN K 

: X=X+SGN X*.005:Y=Y+SGN Y*.005 

: PRINT "PO"ZUSING “#HHHHHHH HH" ZX7Y 
: L=L+SGN L*.005:M=M4+SGN M*.005 

: PRINT “P1";ZUSING "“##HHHHHH HA ALM 
: N=N+SGN N*.005:0=0+SGN 0*.005 

: PRINT "P2"ZUSING "HHHHHHHH HHNINZO 
: END 
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SHARP 


: INTERSECTION OF.A CIRCLE AND A LINE PROGRAM NO. 
Title P=L/C P4—-G-7 
[ Formula ] 


This program finds points of intersection of line L(x,,¥1,6) and circle C (x9, ¥o,%o) with 
the condition of discrimination given. 





(x14 91) Fig. 12 Intersection of a Line and a Circle 


Condition of discrimination: 


A line and a circle intersect each other at two points unless they are tangent to each other. 
To discover the point of intersection nearer to the start point of the line, input —1; to 
discover another point, input 1. 

In the above example, Po, is fixed when —1 is input and Po, when 1 is input. 


[ Example ] 
L: line that passes point (—50, 0) 


and crosses the X-axis at 45 
degrees. 


C: center (50, 50), radius 50. 


Xx 











Fig. 13 Example (P = L/C) 
[ Operation ] 
VinV 
CLOAD G7 [ENTER 





Display Note 


Input Display Note 
|| input | 











— : z) 
~ 





re] 30 ow a 
a 
| ne cee See 
eee mae 








. INTERSECTION OF A CIRCLE AND A LINE PROGRAM NO. 
Title peztie P4—-G-7 


we a 

: "A':DEGREE :INPUT "L1 x="7S 

FOAS| 3... -—-- 4 © cINPUT MET YS" eT 

Dfa[ | 30: tueur wr aevzo 
: INPUT "C1 X="3p 

Eis] | Sos Input “C4 ve"sa 
: INPUT "C1 R="2R 
: INPUT "NEARER(~1)/FARTHER(1)="7J 
: S=S=P:T=T-Q 
: IF ABS O=90LET X=S:Y=J*SGN Oxf (R*R=XeX) 
:GOTO 130 
: X=TAN Os Y=T=Sx*X 
1 ABX*K+1 SBE=X*Y/ASARY CXR XAR R= YVRYERERD JA 
: Z=B+A*SGN (9O~ABGS O)*d:Y=XeZ+Y:X=Z 
: X=X+PrY=Y+Q 
> X=X+SGN X*.005:Y=Y+SGN Y*,005 
> PRINT "PO"ZUSING "HHHRHHHH BHU SKY 
: END 
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SHARP 


PROGRAM NO. 
Title A LINE TANGENT TO TWO CIRCLES 


[ Formula ] 


This program discovers two tangent points on a line tangent to two given circles C,(x1,1,7;) 
and C2 (x2, 2,72) with the conditions of discrimination J, and J, given. 


Pl 
a J .. 
Fig. 15 Lines Tangent to Two 
Circles at the Same Side 


Fig. 14 A Line Tangent to Two Circles Fig. 16 Lines Tangent to Two 
Circles at the Sides 
Condition of discrimination Opposite to Each Other 





J,: 1 when a line to be found out is tangent to circles C,; and C, on the same side. 
—1 when that line is tangent to those circles on the sides opposite to each other. 


J,: 1 when the tangent point of circle C, which is on the left side of the line connecting 
the centers of circles C, and C, is found. 
—I1 when the tangent point on the right side is found. 


{ Example ] P2 


= =A0 : center (50, 50), radius 50 
a : center (200, 80), radius 40 
| : 1 because the line is tangent to 
C, (200 , 80) C,; andC, on the same side. 
: | because the tangent point is 
on the left side. 


Fig. 17 Example (L=C/C) 


[ Operation ] CLOAD Ycs” Gaia) 


—Bispiay [Note [| tonut | Dipl 
ite. ale 74 














J.LQ),RO1D)= 
Pl 48.42 99.57 


P2 194.74 119.6 yo 











. PROGRAM NO. 
Title A LINE TANGENT TO TWO CIRCLES ee ae 


Memory content 


Alt) | 
Biz] 
1 


Yr 












10: "A“:DEGREE sINPUT "C1 X="7A 
20: INPUT “C1 Y="75 

30: INPUT "C1 R="5C 

40: INPUT “C2 X="; 

SO: INPUT "C2 Y="7E 

60: INPUT "C2 R="7F 

70: INPUT “J.OUT(1) -IN(-1)="7@ 
80: INPUT “J.L(1) -RC-1)="2R 

90: S=R 
100: IF Q=-1LET X=F+C:GOTO 130 
110: X=F-C 

120: IF C=FLET X=0 

130: Y=D-A 
140: U=E-B 

150: V=FCY*Y+U«xU) 

160: W=ACS (Y/V) 
170: IF U>OTHEN 190 

180: W=-W 
190: G=f (V*V-X*X) 
200: H=ACS (G/V) 
210: IF Q=1IF C>FLET R=-R 
220: I=WHHeRsL=1+Q%S*90 
230: M=A+C*COS L 
240: N=Bt+C*SIN L 
250: O=M+G*COS I 
260: P=N+GeSIN I 
270: M=M+SGN M*.005 2N=N+SGN Nx.005 
280: PRINT "PI"ZUSING "#HHHHAHH AH" SMZN 
290: O=0+SGN 0*.005:P=P+SGN P*.005 
300: PRINT "P2"7USING “###HHHHH AH" 70-7P 
310: END 


TTY 






























Pix 
iy 
2X 
2y 

7 Judge 1 


Judge 2 
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SHARP 


Tit! A CIRCLE TANGENT TO BOTH A CIRCLE AND PROGRAM NO. 
tie A LINE C=L/C P4—-G-9 


[ Formula ] 


This program finds the central coordinates of a circle tangent to both line L, (x1, ¥,,6,) and 
circle Cy(%o,¥o0,%o) —— both are given — with its radius R and the conditions of 
discrimination J, and J, input. 


Conditions of discrimination 


J,: 1 when a circle is tangent to circle C, at the 
outside is found. 
—1 when a circle is tangent to circle C, -at the 
inside is found. 
: Il when a circle to be found is on the left side 
Fig. 18 A Circle Tangent to Line L, and of line L,. 
Circle C, —1 when the circle stays on the right side. 
[ Example ] 9 : —1 when the circle is on the nearer side. 
LI 1 when a circle to be found is on the farther 


Cm, ni) 








side of circle C, in terms of the direction of 
line L, ‘ 
: line that passes original (0, 0), and crosses 
Xx the X-axis at 45 degrees. 
: center (0, 0), radius 40 
> 20 
: 1 because the circle PO to be found is outside 
Ro" Pp Ci. 
Pl : 1 because PO is on the left side of L,. 
: —1 because PO is on the nearer side. 


Fig. 19 Example (C =L/C) 


[ Operation ] 
CLOAD “G9” (umm 


Display Note a Input Display 

a 

ra 
0 13 —40. 





Cl X= ‘teTeR} | P2 —36.09 — 17.24 
: 


16 


FL LOD ri 
FARTHER(1), NEARER(- 1) = 20] 


sjeol=[~lolalalels|=| | 













A CIRCLE TANGENT TO BOTH A CIRCLE AND BROCRAE NG. 
Title =A CinE C= L/C ae 










Memory content 


ins) 


ae] 


10: "AN SDEGREE :INPUT "L1 x="75 
20: INPUT "LY Y="sT 
30: INPUT "L1 As" 
40: INPUT "C1 xX="s3P 
50: INPUT "C1 Y="7Q 
60: INPUT "C1 R=" FRe"R="7ZG 
70: INPUT "J.C OUT(1) -IN(HT) BNGE 
SG: INPUT "J.L1 LOD) RCT) S"GE 
90: INPUT “FARTHER(1) »¢NEARER (<1) ="s0 
100: H=0+9Q0«F:U=0 
110: S=S+G6*COS H 
120: T=T+G*eSIN H 
150: IF (E==1)+(G>R)=2LET U=1 
140: S=S=P:T=T~Q:REk+ExG 
150: IF ABS O=9OLET X=SsY=JaSGI! O#¢CCReR=NxeYX) 
:GOTO 196 
160: X=TAN O:Y=T=-S#¥% 
170: AREXRX+7 BE XKY/ATAS TC XKMARAR=VKYERERD JA 
130: ZSB+AKSGN (90-AGS O)aJSYSXe74Y:X=7 
190: X=X+PrY=Y+Q 
200: H=0-90%F 
210: A=X+G*COS HrB=Y+GeSIN H 
e202 CSEx(P=X) :D=Ex (O-Y) 
230: Tav(C*C+D«D) 
240: K=BACS (C/I) 
250: IF O>DLET K=-K 
260: IF UStL€T K=K+180 
270: L=X+G*COS KiNsY+GeSIn K 
2002 X=X+SGN X*,005:Y=Y+SGN Y*.005 
290: A=A+SGN A*.005:3=5+SGH B*,005 
300: L=L+SGN L*.005:M=M+SGN M*.005 
310: PRINT "PO"FZUSING "HEHHHHAH AHN EX FY 
S20: PRINT "P1I"JUSING “#HHHAUHHH HHS ASB 
330: PRINT “P2";JUSING "##HHHHHH HEUGLEM 
: END 
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SHARP 


. PROGRAM NO. 
Title A CIRCLE TANGENT TO TWO CIRCLES C=C/C 


[ Formula ] 


This program finds the center O of a circle tangent to two given circles C,(x1,¥1,71) and 
C,(%2,)2,72) and their tangent points P, and P, with the radius R of that circle and the 
conditions of discrimination J,, J, and J; entered. 


(+0) Conditions of discrimination 
oS J,: 1 when a circle to be found is tangent to 
C, at the outside. 
—1 when that circle is tangent to C, at the 
inside. 
J,: 1 when a circle to be found is tangent to 
C, at the outside. 
—1 when that circle is tangent to C, at the 
inside. 
J3: 1 when a circle is created on the left side of 


, : : circle C, looking from circle C, . 
2 1 
pleco ead Chale Lanbene so woC holes ~—1 when a circle is created on the right side. 


[Example] yY 





C,: (0,0, 30) 
(fF) C2: (50, 20, 40) 
<f 

r= 10 

J,: 1 because the circle to be found 
—- namely PO — is tangent to 
C, at the outside. 

J,: —1 because PO is tangent to C, 
at the outside. 

J3: 1 because PO is on the left side 
of C, . 


Fig.21 Example (C =C/C) 





{ Operation ] 
CLOAD Yo10” ENTER 


PO 4.08 39.79 
Pl 3.06 29.84 
| ewe) (ENTER)| P2 13.27 35.83 


J.C2,0UT(1), IN7A)= ee ae 


rae 
fee ol 
es 
ae 
et 
eae 
J.-L), RD = eer ae 






















PROGRAM NO. 
P4—G-—10 






Title A CIRCLE TANGENT TO TWO CIRCLES C = C/C 


Memory content 


Alt) os | 
Biz; ox» 












10: “A™:DEGREE sINPUT "C1 X="ZA 
20: INPUT “C1 Y="5B 
30: INPUT "C1 R="70 
40: INPUT “C2 X="2D 
SO: INPUT "C2 Y="ZE 
60: INPUT “C2 R="5P 
70: INPUT "R="3S 
80: INPUT "J.C1. OUT(1) -IN(-1) ="7 
90: INPUT "J.C2. OUTC(1)-IN(-1)="4R 
100: INPUT "J. L(1)-R(-1)="7G 
110: F=P+R*SsC=0+QxS 
120: H=D-A 
130: I=E-B 
140: J=fCH*HtIxI) 
750: K=ACS CH/J) 
160: IF O>ILET K=-K 
170: L=ACS C(CHCHIeJ=FHF)/2/C/5) 
180: M=A+C*xCOS (K+GeL) 
190: N=B+C*SIN (K+G*L) 
200: X=Q*(A-M) 
210: Y=Q*x (B-N) 
220: GOSUB 500 
230: IF €(Q=—1)*(S>0))=1LET W=W+780 
240: H=M+S*COS W 
250: I=N+S*SIN W:X=R*(D-M) 
260: Y=R* (E-N) 
270: GOSUB 500 
280: IF (CR==+1)*(S>P))=1LET W=W+180 
290: J=M+S*COS W:K=N+S*SIN W 
300: M=M+SGN M*.005:N=N#SGN N*.005 
310: H=H+SGN H*.005:I=I+SGN I*.005 
320: J=J+SGN J*.005 :K=K+SGN K*x.005 
330: PRINT “PO"ZUSING “#HHHHHHH HH" SMIN 
340: PRINT "PI"7USING “H#HHHHHH AA" FHFI 
350: PRINT “P2"7USING “##HHHHHH HA" F I 7K 
500: Z=FCX*X+Y*Y) 
510: W=ACS (X/Z) 
520: IF O>YLET wWe-W 
530: RETURN 
END 
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SHARP 









A CIRCLE PASSING A POINT AND TANGENT TO | PROGRAM NO. 
Title A LINE C = L/P/R Be 671 







[ Formula ] 





This program finds the central coordinates of a circle passing given point Pl (x,y) and tangent 
to given line L1 (x,,¥1, 01) and the coordinates of a point of their intersection with radius R 
and the conditions of discrimination J, and J, given. 






ae 


“7 S. 
FV Cea) 









Cy A) Fig. 22 A Circle Passing a Point and Tangent to a Line 






Condition of discrimination 

J,: 1 when point P; is on the left side of line L,. 
—l when P, is on the right side of L,. 

J,: 1 when line L, is on the farther side of a circle to be created. 
—1 when line L, is on the nearer side. 









{ Example ] 


Y 
Py Lt L, : line that passes origin (0, 0) and 
crosses the X-axis at 45 degrees. 
P,: (30, 50), radius 15 
J,: 1 because P, is on the left side. 
J,: ~—1 because L, is on the nearer side. 
45° 
Oo 
x 


Fig. 23 Example C=L/P/R 













{ Operation ] 
Vv Vv 
CLOAD “G11 __ [ENTER 


Input Display Note 
ry 
Lt. ye 
10 ee 


J.P.L(1),RO)= 
FARTHER(1), NEARER(—1) = 


7 
PO 18.80 40.02 






een 
are, 
E 
ei 
aaa 
-——— i 
aaa 
fe ell 
Pp 
—E aw 


fslef=[~lolealajelsi=i | 
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on) wp = 

S| olalo . 

S| SS ae 

may | ie) flee] | lee 

EJ = = EJ 


Oo 
aa] 
= 
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Title A CIRCLE PASSING A POINT AND TANGENT TO PROGRAM NO. 
A LINE C = L/P/R P4-G—1ll 


Memory content 


a 
HB nie 
fC [S| teed 
ae 
Cina 
2 
Cha 
Hie 
0 


















10: “A®:DEGREE :INPUT "L1 X="75 

20: INPUT "L1 tones 

30: INPUT "L1 As"; 

403 INPUT "P14 eige 

50: INPUT "P1 Y="2Q 

60: INPUT "R="FR 

7O: INPUT "J.P. LO1) -RO-1) ="7C 

SOs INPUT "FARTHER(1) -NEARER(-1)="GJ 
90: D=0+90*C 
Meee aoe ) 



































[<[</=[</¢| 


[fol seieee | to: etenssri a 
120; S=S-Ps T= T=Q 
Kip 130: IF se O=YOLET X=SsYsJaSGM! OxT(RaR eX) 
fe fief 29089 100 
140: X=TAM = Y=T=S4X 
Mii) 150s ABKRK+1 SBS XeY/ATASE CXR XH RARHVRYERERD JA 
IN|) 160: Z=B+A%SGN (90-ADS 0) «J sY=X*Z4Y2X=2Z 
1702 X=X+P:Y=YtO 
Oli} a | 100: d=0-904C 
el ee ee 
200: V=YtR«SIN D 
@}i] oy | 20: U=U+SGN U*.005:VevVeSGN ve .005 
TR [te Radus 220: K=N+SGH X*.005:Y=Y+SGN Y*.CO5 
230: PRINT “PO'ZUSING “MHHHRHHH EMM EXZY 
sig} os 240: PRIUT “PINZUSING "HHHHHHAE MEM ZURY 
250: EflD 
Ve 463 
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SHARP 









A CIRCLE PASSING A POINT AND TANGENT TO | PROGRAM No. 
Title A CIRCLE C = P/C/R pP4—-G-12 









[ Formula ] 


This program finds the central coordinates of a circle that passes given point P, (x1, 1) and is 
tangent to given circle C, (x9, ¥o,%o) and the coordinates of a point where those two circles 
are tangent with radius R and the condition of discrimination given. 












Condition of discrimination 


J,: 1 when a circle to be found is tangent to circle 
C, at the outside. 
—1 when that circle is tangent to C, at the 
Resi 
1 when a circle to be found is created on the 
" left side looking from point P,. 

—1i when that circle is created on the right side. 










Fig. 24 A Circle Passing a Point and 
Tangent to a Circle 







[ Example ] 







P1(60,80) 






: (60, 30) 
C,: center (0, 0), radius 40 


z | in 





J,: 1 because the circle to be found 
is tangent to C, at the outside. 

J,: 1 because the circle to be found 

is on the left side looking from P,. 












Fig.25 Example (C = P/C/R) 








[ Operation ] 





CLOAD Yo12” 





(EuTER) 


se Display 
~l 









Input Display 
(ENTER} | P1 39.99 0.98 


foe 
1 a 
es 
eee 











Tit! A CIRCLE PASSING A POINT AND TANGENT TO PROGRAM NO. 
A CIRCLE C = P/C/R P4-G—-12 


Memory content 


El eee 
BB inst ral 
i ee "AMSDEGREE 2IMPUT "P1 X="7A 


Xo 
8 INPUT "C1 X="7D 
INPUT "C1 Y="ZE 
INPUT “C1 R="2N 
INPUT "R="7C 
: INPUT “J.OUTC(1) -IN(-1) ="7P 
INPUT "J.L01) -R(-1) ="7G6 
F=N+PxC 
H=D-A:I=E-B 
J=f CH*H+I*I1) 
K=ACS (H/J) 
IF O>ILET K=-K 
L=ACS CC(C&CHIKJ-FRF) /2/C/ J) 
S=A+C*COS (K+G*L) 
T=B+CxSIN (K+G*L) 
X=Px (D-S) :Y=P*CE~-T) 
Z=J CXAX+Y*Y) 
U=ACS (X/Z) 
IF O>YLET U=<U 
IF (CP==1)* (CON) )=1LET C=-C 
V=S+C«*COS U 
W=T+CaSIN U:S=S+SGN S*.005:T=T+SGN T*.0 
05 
240: V=V+SGN V*.005:W=W+SGN We .005 
250: PRINT "PO"ZUSING “HAHHHHHH HH" 7S7T 
260: PRINT “P1I"7USING “HHHAHHRH HEY FV 7 
270: END 


464 


c 


SENS |v < Joo] ed Od NO Oe Od dd x 
& eal le 


D | 
E | 
G | 
H | 
jl 
K | 
M1 
LN 
}o 


Bla(eislsi=islelslslslalsialsl=alslel@[~jela[=| 
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SHARP 





. PROGRAM NO. 
Title A CIRCLE PASSING TWO POINTS C = P/P Sees 










[ Formula ] 


This program finds a circle that passes two points P, (x1,¥1) and P, (x2,¥2) —— both are 
given — with radius R and the condition of discrimination entered. 


P2( x2, ye) 








P, (%1,91) 
Fig. 26 A Circle Passing Two Points 
Condition of discrimination 
1 when the center of a circle to be created is located on the left side of a line that 
passes two points P,; and P,. 
—1 when the center is located on the right side. 


[ Example ] 










P, (0,5) radius 5 
P, (5, 0) 
Input for discrimination —1 











[ Operation ] 






CLOAD YG13~ — (een 






















aici Note 


Fix +f 
em {Pr y= | 
pp2 x= 
i ee ee 
Pigs, faeces 
IL), RD= [| 
aa 
= 
Seta 


Input Display 


— 


5 
= 
a 
pa 
ii 
| EI 

= 

=I 

m 

ao 


on 
foal 
= 
= 
m 
=o 


a 
[aa] 
= 
= 
(eal 
= 








PO 0.00 


BRB on See 
o;u 
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ae ||| ae 
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Title A CIRCLE PASSING TWO POINTS C = P/P 


| Memory content | | content 


lene 
fe[z[ 
ep 
pf = 


Radius 



















10: “A":DEGREE :INPUT "P14 X="7A 
20: INPUT "P1 Y="-B 
30: INPUT "“P2 X="7D 























40: INPUT “P2 Y="7E 
50: INPUT "R="7F 
60: INPUT "J.L(1)-R(-1)="7G 
70: C=F 
80: H=D-A 
90: I=E=-B 
100: J=/CH*H+I*1) 
110: K=ACS (H/J) 
120: IF O>ILET K=<K 
130: L=ACS ((CeCHI*I-FeF)/2/C/ 4) 
140: M=A+C«eCOS (K+G*L) 
150: N=B+C*SIN (K+GxL) 
160: M=M+SGN M*.005:N=N+SGN N*.005 
170: PRINT "PO"ZUSING "“##HHHHAH A'S MIN 
180: END 
267 
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SHARP 


j 2 PROGRAM NO. 
Title A CIRCLE PASSING THREE POINTS C=P/P/P ie jraieatie 


[ Formula ] 


This program finds the central coordinates and radius of a circle that passes three points 
Py (%1,¥1), Pz (%2,¥2) and Ps (x3,¥3) — all these are given. 


P2( x2, y2) 


Pi 
Cm, nH) 


P38( x3, 53) 


Fig. 28 A Circle Passing Three Points 
[ Example ] 


Pi 
(0,50) : P3(100,50) 





P2 
(50,0) 
Fig.29 Example (C =P/P/P) 


[ Operation ] 
CLOAD “G14” 


Input Display 





PO 50.00 50.00 





ay 
~— 





sleje|~[elealelelsi=] | 
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: PROGRAM NO. 
Title | A CIRCLE PASSING THREE POINTS C = P/P/P 


Afipos | 
Blzpo» | 
See O: ci ee sINPUT "P1 X="7A 
: INPUT “PT Ys"zB 
a GEG Hpoyenes 
i ee See 
eS Sean erg 
ie eas 
fifsp vy feCJ-D CKD a“ 
vio vy : aga ae YaKe XL 


: M=X-A:N=Y-B 

2: R= CM*M+N*N) 

: X=X+SGN X*.005:Y=Y+SGN Y*.005 

: PRINT “PO"-ZUSING "#HHHHHHH HHI XY 
R=R+SGN R*.005 

: PRINT “R™-7USING “#HHHAHHH HH" FR 
IF B=HLET I=£50:GOTO S20 

: I=(G-A) /(B-H) 

> J=C(BtH-I*(A+G))/2 

: RETURN 

> END 


Rl So SP he 
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SHARP 


PROGRAM NO. 
Title DAYS BETWEEN DATES P4—-H-} 


[ Formula ] 


This program figures out the number of days between two dates by presetting reference date. 
The case of a leap year is of course taken into account. 
The number of days includes one-side date. 


[ Example ] 


From 10/5/1976 to 2/20/1977: 138 days 
From 10/5/1976 to 11/15/1977: 406 days 


[ Operation ] 
C LOAD YH1Y (EMER) 
(SHFT) 
Reference year 
Reference month 
Reference day 
Appointed year 
Appointed month (Enter! 


Appointed day ENTER Number of days displayed 








ENTER 


NOTE) In the case of presetting reference date anew, start the operation from [Al 
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Title 







Memory content 







Riaire 
aa 
Month for SUB. 


fo 
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oe! 
ae an! 
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ae 
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a 
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BIQWORICIREIE! 





RBRVS 





DAYS BETWEEN DATES 


_ oR Cee 


PROGRAM NO. 
P4 -H-1 







19: "A" sy¥=Q 
20: INPUT "START YEAR="FRe-UMONTHS"7S,"DAY=!! 
77 
30: INPUT "END YEAR="FUs MONTHS" ZV-"DAYS" Zh 
40: IF Y=IlLET H=R+1925:G0TO 60 
50: H=R 
60: G=S:l=T 
7Q: GOSUB 500 
60: J=I 
90: IF Y=1LET H=U+1925:G0TO 110 
100: H=vU 
110: G=V:T=W 
120: GOSUB 500 
130: xX=I-J 
140: PRINT “DAYS'.X 
150: GOTO 30 
500: IF G=3>=0LET 2=+(G6-3)*30.5-.5:G0SUB 600 
:T=I-Z:GOTO 530 
510: H=H=1 
520: Z22(-(6-3)+12)*30.6-.5:G0SUS 600:I=I-Z 
530: Z2H*365.25:GOSUB 600:I=I+2 
540: Z=H/100:GOSUB 600:I=I-2 
550: Z=H/400:GOSUB 600:I=I+2 
560: I=I-307:RETURN 
600: XSINT ABS 2:Z=SGN Z«X:RETURN 
385 
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SHARP 


7 PROGRAM NO. 
Title CALCULATION OF PAST AND FUTURE DATES Se 


{ Formula ] 
This program figures out date “‘n”’ days after (or previous to) reference date. The number of 
days includes one-side date. 

[ Example ] 
Date 100 days after 3/10/1977: 6/18/1977 


[ Operation ] 
CLOAD VH2Y 


Inputting order Key operation 


(Al 


| 


1) 


2) Reference year: 


a 8 


| 


3) Reference month: 8 
4) Reference day: 10 


5) No. of days from desired date: 100 (EnTER) Desired date displayed 








EWTER| 
Repeat the same operation as shown above. 


NOTES) 1) This program is able to calculate between 1950 and 2000. 
2) To find date “n’’ days previous to reference date, operate the keys as —n (ENTER) . 





























PROGRAM NO. 


P4—-H-2 


Title CALCULATION OF PAST AND FUTURE DATES 


Memory content 


A[i| Server 
Bl e| Hoan 
fe] by 


o. of days 


[xle|—-|z/o/-|m[o 
BOOEICCIES 
Hill 


PTT TT tT IN| <[x[2]<[<[s]o|2|o/v/ol2|3) 
SAAR BARE! 
PFE 


10: "ANS X=0 

20: INPUT "START YEAR="3 

30: INPUT "MONTH="78 

40: INPUT "DAY="7C 

50:3; IF X=1LET A=A+1925 

60: GOSUS 500:F=G 

70: INPUT "DAYS="7H 

SO: D=H+F 

90: A=1950:5=1:C=0 
100: A=A+1:GOSUS 509 
110: IF D>GTHEN 10¢ 
120: A=A-1 
130: B=B+1:GOSUS 500 
140: IF D>GTHEN 130 
150: B=B-1 
160: GOSUB 500 
170: C=D-G 
180: IF X=1LET A=A-1925 
190: PRINT USING “#H##H#H."ZAZUSING "EHE ZB 20 
200: GOTO 70 
500: IF 3>BLET I=A-1:J=B+173:GOTO 520 
510: J=B+1:I=A 
520: 2=365.25*1:G0SU8 600:Y=Z 
530: Z=30.6%J3:GOSUB 609 
540: G=Y+Z+C-621049 
550: RETURW 
600: WHINT (SGN Z*Z):Z=SGN Zx«l\i 
610: RETURH 

: END 
571 
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SHARP 


Title CALCULATION OF INTEREST RATE ON LOAN 


[ Formula ] 


PROGRAM NO. 
P4—-H-8 













No. of days _ 
36500 





Interest = Principal x x Rate of interest 










( Unit of interest: 1 dollar. 
Decimal fractions be reckoned as a unit. 


) 







{ Example ] 








Interest (dollar) [Amount with interest added (dollar) 
58,811 

45,472 
104,283 


| Principal (dollar) 
58,000 
45,000 
Total| 1 03,000 





No. of days 

































[ Operation ] 
CLOAD YH3Y_ [ENTER 










1) (sKFT} [Al 


Rate of interest (ENTER 






Principal ENTER 





Interest 





No. of days 





Amount with interest included (TOTAL) 





2) To calculate total: 






Amount with interest included 





[SHFT) 
(euren) ©=—«- Total of interests 














Total amount with interests included (T.P.1) 




















es 
sao al] Davs= «Y= 


fe ae 
el 
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[inreresT sit] 
froraL sss] 
isnt 
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RATE (%) = 
PRINCIPAL = 
DAYS = 


PRINCIPAL = 


co 
On 
m 
= 
a 
m 
|= 


| 


45000 
45 (euteal 


=] 
| 
Laat 
a 


| 








1] 
12] 
13] 
| 
15) (ENTER) | T.PLI. 104288 
16 
13 
19 
20] 


jslolo[~felalalelei=l | 








| PROGRA s 
Title CALCULATION OF INTEREST RATE ON LOAN 


Memory content 


AT] Raworinwes | 
fea] ries | 
No. of days 


Interest 










10: "AN 1E=0:F=0 
20: INPUT MRATECK)="FA 
30: INPUT "PRINCIPALS"'35 








Pot pees 40: INPUT "DAYS="7C 


50: GOSUB 500 

Go: E=B+E:F=D+F 

7O: PRINT "INTEREST",D 
GG: PRINT "TOTAL",8+D 
9Q: GOTO 26 

700: "Bs" 

47170: PRINT “"T.PRINCIPAL",ZE 
720: PRINT "T.SINTEREST"+F 
120: PRINT "T.P.I",E+F 
140: END 
S500: DSINT (B*C/S6500eA+.9) 
: RETURE 


Total interest 


[4/0]2/o|vJo|z/8/r[x\¢|-/z]o[>|m/olo 


eel 
el[ele (eis lelsislslslalalelelslalslele[~lolala|o| 
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SHARP > 


Title CALCULATION OF INTEREST ON DEPOSITES 


[ Formula ] 





PROGRAM NO. 
P4—H-—S5 









Is the same as that of H3, but the rate should be preset in this calculation 
No. of days 
36500 


Y Amount interest added = Y Principal > = Interest 





Interest = Principal x x Rate of interest 









[ Example ] 
(Unit of interest: 100 dollar; any fractional sum of less than 1 dollar discarded) 

Rate of interest: 7(%) 
Principal (dollar) | No. of days [Interest Celina with interest added (dollar)| 

































































500 60 | 5 505 
450 125 | 9 | 459 
r — 
7390 | 175 261 8151 
[Total | 8840 | 275 9115 
[ Cperation ] 
CLOAD YHS5Y (enter (NOTE) Repeat key operation in such an order 
as “* (SHFT) (6) (EWTER) = (EWTER} ~—(ENTER) ”” 
1) Rate presetting 7 in the first place, and check that the 
(SHFT|  [C} total memory is cleared. (“(CL.OK” 
Rate ENTER will be displayed if cleared.) 






2) Calculation of interest 
A} (Al 
Principal 












ENTER) Interest 
Amount with interest included (TOTAL) 


No. of days 










3) Total 


{SHFT) t,t : 
Amount with interest included 


Ek} Total interest 
ENTER) Total amount with interest included (T P.I.) 


| input | Display | Note | | Input | Display _|_Note | 
[eam | idem _[reenorar seo] 
Dc a (7 
= 

Camm a 


















60 (exten) | INTEREST 5 
TOTAL 505 


13 
[14 
[3 
18 
ia 
19 
20 


290 


ENTER) 


NTE 


a 


JSlele(~jolealale[s|=[ | 





Title CALCULATION OF INTEREST ON DEPOSITES 


Memory content 


[| rine | 
|B | 2| No. of days 


Rate 










T. Interest 





102 "C™SINPUT “RATE(Z)="7C 

20: END 

30: "Re 

4O: PRINT "T.PRINCIPAL"-E 

50: PRINT "TJINTEREST',D 

60: PRINT "T.P.I"-E+D 

70: E=0:D=O0:PRINT "CL.OK":END 

80: “"A'SUSING :INPUT "PRINCIPAL="7A 
90: INPUT "DAYS="7B 

100: X=INT CINT (A/100)*B*C/36500*100) 
110: E=E+A 

120: D=D+X 


T. Principal 












FH [z|¢|—|z/o|=/m/ 0/0] 





130: PRINT "INTEREST"+X 
140: PRINT "TOTAL", A+X 
150: GOTO 80 

160: END 










— 
wel 


Interest 


4 


otal 
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SHARP 
CALCULATION OF PRESENT VALUE OF PROGRAM NO. 
COMPOUND-INTEREST ANNUITY p4—H-7 


[ Formula ] 
General formula: Present value of term-end payment annuity P= RX oe = ola 


P= Rx I2UED™ x (1+i) 





Present value of annuity due 


- i 
Payment at the end of every term R= Px (Sas 


n: term (number of settlement term) i: rate of interest 
R : payment (present value) 


[ Example ] 


1) Find the present value of annuity which will be paid 700 dollar at the end of every half year 

_ term for 8 years, provided that the rate of compound interest is 5%. 

2) Find the present value of annuity which will be paid 700 dollar at the top of every half year 
term for 8 years, provided that the rate of compound interest is 50%. 

3) Suppose that a sum of 30000 is loaned at the rate of compound interest of 8% (a half- 
yearly settlement ), and that it should be repaid with installments of the same sum at 
half-yearly compound interest for 5 years: How much is the installment paid at the end of 
every term? (Unit of interest: 1 dollar; less than one dollar rounded) 

{ Operation ] 
CLOAD YH7Y (enter 


1) Present value of term-end payment annuity (Ex. 1) 3) Payment at the end of every term 
(Al (Ex. 3) 
(Annuity) Amount paid at the end of term {nTER) 
Rate (%) (Loan) Present value of 
Term ENTER payment at the 
Number of settlement term end of term 
Present value of Rats 
term-end pay- Term 
ment annuity Number of settle- 
2) Present value of annuity due (Ex. 2) ment term 
(SHFT) Amount paid 
(Annuity) Amount paid at the top of term at the end of 
Rate (%) ENTER eNGry HoH 
Term ENTER 


Number of settlement term Present value of 
annuity due 


steae Display 
co 
= 


Les 
a 
eed 
ae 
ed 
ane 
== 
eee 
| 


SHFT 





= 
3 
i=) 
oO 

> 


foe) 
[oa] 
= 
= 
a 
= 


“le | 


faa] 
= 
= 
ma 
= 


RATE (%) = 
TERM = 
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Tit} CALCULATION OF PRESENT VALUE OF PROGRAM NO. |. 
e COMPOUND-INTEREST ANNUITY P4—-H-7 
Memory content 


PA] Amount paid 
ig Rate of interest 













10: "A':GOSUB 500 

20: Z=INT CA*Y/B+.5) 
30: PRINT "P",Z 

40: END 

50: "B':GOSUB 500 

60: Z=INT CA*Y/B*(B+1)+.5) 
70: PRINT “Ps"-Z 

80: END 

90: "C":GOSUB 500 

100: Z=INT (A*B/Y+.5) 
110: PRINT "R",Z 

120: END 
500: USING 

510: INPUT "AMOUNT PAID="7A 
520: INPUT "RATECZ)="7B 
530: INPUT "TERM=";C 
540: INPUT "NUMBER="';X 
550: B=B/X/100:C=C*Xx 
560: Y=1-(B+1)“(-C) 
570: RETURN 

580: END 


















[ale [=|z[o[=[m[o[o] 


ewok 
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SHARP 
Tit! CALCULATION OF FUTURE & PRESENT VALUE PROGRAM NO. 
tle (by compound interest) Pp 4— H-8 
[ Formula } 
Compound interest future value = Compound interest present value x (1 + i)” 


Compound interest present value = Compound interest future value x (1 + i)~” 


i: rate of interest 
n: term 


[ Example ] 


1) Find the compound interest future value when you deposit a sum of 1500 dollar at the 
yearly rate of interest of 6% for 3 years. 

2) Find the compound interest future value under the same conditions as Example 1) but 
compounded twice a year. 

3) Find the principal necessary to deposit in order to obtain the future value of 5000 dollar, 
provided the yearly rate of interest be 6.5%. 


Unit of interest: 1 dollar; ) 
( less than 1 dollar rounded 


[ Operation ] 
C LOAD VH8Y 


1) Compound interest future value (Examples 1 & 2) 
SHET (Al 
Principal 
Rate of interest 
Term (ENTER! 


Number of settlement term (Enter) Compound interest future value 


2) Compound interest present value (Example 3) 
SHFT) 
Compound interest future value (ENTER) 
Rate of interest 
Term 
Number of settlement term Compound interest present value (Principal) 


| Note 
paNcirat= |e @_[Prncrat= [5 
1500 | RATE G= | sooo a] RaTEG= | ———d 
Peeincipat= [x 


Input 


a 
x= 
~” 
onl 


mm) | (e>) | (es) |(ea 
me) {| ze || ane) || ae 
| lal ae 
mal tle! irs 
w5| } i=) j|=0 


la 


_anniaeame! 
atifrare@= id ers 
ara|rexw= | eee) 
rommee= | ——— 
[roruRe VALUE rail =e 
























Tit! CALCULATION OF FUTURE & PRESENT VALUE 
ie (by compound interest) 


Memory ‘content 
Rate of interest 


PROGRAM NO. 
P4—-H-8 









[00 | > 
= 


jalajelslsl[alslele[~lolalafeln| 
o 
3 











10: “A'SUSING 
20: GOSUB 50 
30: Z=INT CA®Y+.5) sPRINT "FUTURE VALUE",2 
40: END 
50: "B'"sUSING 
60: GOSUB 500 
7O: ZEINT CA/Y+.5) PRINT "PRESENTVALUE",2 
36: END 
500: X=7:INPUT "PRINCIPALE"7A 
510: INPUT "RATEC%) ="38 
520: INPUT "TERM="7¢ 
530: INPUT "NUMBER="7 x 
540: B=B/x 
550: C=CxX 
560: Y=(€8/1004+1)4¢ 
570: RETURN 
>: END 


Number of settlement term 
fe cin 
ie oes 


[<|=]=[<[¢[3]@|»/o]v]/o[2/e/r[ale|-|z/o|=[m[o] 
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SHARP 
. PROGRAM NO. 
Title INSTALLMENT CALCULATION 


[ Formula ] 
General formula: = ( P-R) X TH 












installment 
price 
deposit 
number of times of installments 
interest 







“Ss AWA 









[ Example ] 


Suppose you pay 500 dollar down on a 3,000 dollar stereo set and pay the rest by 11 months’ 
installments at the monthly rate of interest of 1%. So find the monthly payment. 







( Unit of interest: 1 dollar; ) 
less than 1 dollar rounded 






[ Operation ] 





CLOAD VuoY  Gaiey 






SHFT 





Price 


™ 


ATER 






Deposit 


m™m 


NTER 
Monthly rate ENTER 






No. of times of installments {ENTER Monthly payment 











ENTER Last payment 


















Display 
oa 





= 
~ 


[ual 





Pepe = [ee [eb] 





. PROGRAM NO. 
Title INSTALLMENT CALCULATION P4—-H-9 


Memory content 


JA [1] Price 







|B | Deposit 
/c [3] Rate 10: "A" :USING 


30: INPUT 'DEPOSITE="7B 
40: INPUT "RATECZ)="7C 
50: INPUT '"TERM="'2 X 
60: D=A-B 
70: C=C/E2 
80: Y=D*xC/(1-(14+0)4(-X)) 
90: Y=INT (Y+.9) 
100: FOR A=1TO X~1 
110: D=INT (D*(1+C)+.9)-Y 
120: NEXT A 
130: PRINT "M.PAYMENT',ZY 
140: PRINT "LAST PAYMENT",D 
150: END 


fa] ov 20: INPUT "PRICE="ZA 





¢[=|z/o|~ 
ec 


_ 
~ 


Zz, 


o. of times 


M. payment 
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SHARP 


. PROGRAM NO. 
Title CALCULATION OF DEPRECIATION P4—H=10 


{ Formula ] 
Depreciation amount = acquisition cost x rate of depreciation 


Amount left at the term end = acquisition cost — depreciation amount 


[ Example] (Fixed rate method) 


Note: Less than one dollar is rounded. Ex. (1) Depreciation rate: 3.59 (%) 


Acquisition Depreciation Amount left at the 
cost amount term end 


65,000 2,333: 62,667 


55,000 1,974 53,026 
Ez Total 120,000 4,307 


Ex. (2) Schedule of depreciation 
Suppose that acquisition cost of a machine is 700,000 dollar, that the durable year is 
7 years and that its scrap valué is 10% of the acquisition cost. So, schedule the 
depreciation of a half-yearly settlement for this machine. 

















scrap value yr 


ee n: number of settlement term 
acquisition cost 


Rate of depreciation = 1 —( 





Value at the Depreciation Agregate of i” 
beginning of term amount depreciation amount 


[ 700,000 106,162 106,162 
593,838 90,061 196,223 
503,777 76,402 272,626 





260,929 39,572 478,646 
221,357 33,571 512,217 
187,786 28,479 540,696 








97,264 617,490 
82,513 630,000 


| 7m 
3.59 (ENTER) | ACQ. COST= NTER 
65000 ENTER) | EVERY TERM MTE 
Ten] | END TERM WTER 


C Fy 
i} 2 90061 508777 
A} 14 = 12518-70000 


























630000 
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SHARP 


PROGRAM NO. 
Title CALCULATION OF DEPRECIATION 


[ Operation ] 
CLOAD VH10Y _ (ENTER) 


(Ex. 1) 
a wl 


Depreciation rate (ENTER 


Acquisition cost ENTER) ~Depreciation amount 
ENTER} Amount at the term end 


ENTER 





Totalization 
{ SHFT| Total acquisition cost 
Total depreciation amount 
(Ex. 2) 
(HFT) = {e) 
Acquisition cost (ENTER) 


Scrap value (ENTER| 


(n) number of settlement term  fyreq 


Depreciation amount of Ist term 


ENTER 
~ Walue at the beginning of 2nd term 





Depreciation amount of 2nd term 
Value at the beginning of 3rd term 





(ENTER! 


nth term 
Scrap value 


Total amount of depreciation 













Title CALCULATION OF DEPRECIATION 








PROGRAM NO. 
P4—-H-10 


Memory content 
| Depreciation rate 
2 | Acquisition cost 















10: "A':X=0:Y=O0:USING 


1c |3l v 
20: INPUT "RATECQS"3 


1D | 4 Depreciation amount 7 
30: INPUT “ACQ.COST="4B 
| § {Total depreciation amount 40: X=X+p 


50: C=INT (B*A/100) 
60: Y=C+y¥ 
70: PRINT "EVERYTERM",C 
SO: Z=B-C:PRINT "END TERM",Z 
90: GOTO 30 
100: "38" 
110: PRINT "T.ACQ.COST" 4X 
120: PRINT “TJEVERY TERM",ZY 
130: END 
140: "C"sIMNPUT "ACQ,COST="3B 
150: INPUT “SCRAPVALUE="3 
160: INPUT "NUMBERS"; 
170: A=B*C/100 
180: Y=1/x 
190: A=1=-(A/B)4Y 
209: F=INT CA*E5+.5)/E5 
219: E=0 
220: FOR A=1TO xX 
230: D=INT (F*xB) 
240: E=D+E 
250: B=B=D 
260: PRINT USING "HHB"FZAZUSING "AASHMEIIEENS 
D7B 
70: NEXT A 
280: PRINT “TOTAL"sZUSING NUEPEA TEA ATLL AEIUE" oe 
290: END 
392 






























Total acquisition cost 


= Slalslele|~leo| 
~ 


Total depriciation amount 


Amount at the term end 


Plea Se Seis e ae eee esses) 





—260— 


SHARP 


< PROGRAM NO. 
Title CATEGORIZED TOTALIZATION [1] 


{ Formula ] 


Horizontal 
Resi d Ssculh This program calculates 
da the horizontal and vertical 


totals and the ratio and grand 
total of the grand total. 





Example 
! ple | Results of sales 


Article (A) 700 8200 


Article (B) | 60 | 70 | To classify the sales of 4 
kinds of articles by 5 areas, 
and analyze the component 
Article (D) ratio of each area: 


[iiss | 1449 | 2098 | 1896 





Article (C) 











{ Operation ] 
CLOAD YH14Y 


1) Memory clear 2) Preset of the number of vertical and 
sift} (D) horizontal data 


After clearing memory, input the [ SHET] 
number of horizontal and vertical V.No. 
cal H.No. (Up to 145) 


[ost [Display | Note [ [rout 
Le cane (a CA! HR 
3 (ac er (aerate a 

Pe cae dl 


ENTER}! 7 1900 33.99 

















Le 

| 

fe eee no le ae 
(eurer}| 5 1060 396{ | 
ae 

ae 

=e 





! ENTER) | TOTAL 5590 
lis SOMA ee el [et al 





10 








SHARP 


‘ PROGRAM NO. 
Title CATEGORIZED TOTALIZATION [1] 


3) Data input 
ql 


Data ENTER, © Input the horizontal data in order. 


Total of the horizontal data 


After inputting “m x n” times: 


Total of the vertical data component ratio 
enTes} Total 


4) Data correction 
To correct the date input immediately before: 
Wrongly input data (cnTék) , then input a right data and continue inputting operation. 


ia 
2 
3 
g 
a 
G 
8 
Q 
19 


















PROGRAM NO. 
P4—H-14 


Title CATEGORIZED TOTALIZATION [1] 


Memory content 


ATA Very 
BI 2 Horizontal N 


Horizontal total 






10: “"C'sINPUT "V.N.="7A 
20: INPUT "“H.N,=''7B 





Cael 


otal 





: “A™:E=10:F=1:H=1 

70: INPUT “DATA="7G 

80: C=G+C2ACE) =ACE) +G:D=G+D 

90: IF B<=FTHEN 110 

100: F=F+1:€=E+1:GOTO 70. 

110: F=F+1:E=E+1:PRINT USING “####H"FHFZUSING 
"HHEHRHHHHRHH' SC 

120: IF H>=ATHEN 140 

130: C=0:E€=10:F=1:G=0:H=H+1:GOTO 70 

140: FOR E=10TO B+9 

150: I=ACE)/D+SGN ACE) *.00005 : 1=1*100 

160: PRINT USING “#H###"7E-9-7USING "HHARHAHHH 
HH FACE) USING “### HH" FI 

170: NEXT E 

180: USING :PRINT "TOTAL",D 






or data input 






Component ratio 





Data area 












190: “B'SINPUT "MISS DATA=",6 
200: C=C-G:D=D-G:E=E-1:F=F-1 
: ACE) =ACE)-G:GOTO 70 






2/0 | v/0/2/s/r/x/¢/-|z]o]=]m]/ 0/0] 
elslslalels(s[=(sl-|=[=[e[=[=[aI 
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SHARP 


: PROGRAM NO. 
Title CATEGORIZED TOTALIZATION [II] ara: 


[ Formula ] 


This program totals the slips used for business calculation. 
When the code and quantity (amount) are input at random, an amount of each code number 
is aggregated. 




























































































[ Example ] 
Input data Output amount 
[Code No] Amount Unit price Code No. Amount  |Comp. ratio(%) 
3 10 220 1 3300 3.26 
8 15 200 2 1320 1.31 
[4 | 2 255 | 3 4400 | 4.35 
5 12 850 | 4 18870 18.67 
1 22 150 5 10200 10.09 
3 10 220 | 6. | 60000 59.35 
2 i 120 | 7 0 0.00 
| 6 24 2500 [ 8 3000 2.97 
4 52 255 9 0 0.00 
| 10 0 0.00 | 


{ Operation ] 
CLOAD VYH15V 


1) Code No. presetting (Must be operated 3) Total 
at the start of calculation) 
(sit) (8) (Memory clear) aT Amount & component ratio 
Code No. (enter) (Up to 166 possible) =“ %) 
2) Data input (enter; Total 
aft] {A 





Code _ {ENTER} (To find an amount from quantity and unit price, operate in such an 
Data fire order as quantity and unit price {Enter} .) 


bs 




















Display Display Note 
13300 3.26% 
ioeme| 2 1320 ‘1.31% 





wo 

= 
a) 
° 
S) 
S 
z 
fe) 

\ 


10 0 0%. 


a eed 
ee 
afi Sd 


jslelejmfeleleleis|=-| | 
= 
Oo 
B<] 
| Ne} 
0S 
oS 
{rm 
= 
= 
a 


oo 
[nal 
= 
— 
m 
= 


Title 


Memory content 


LA | 1 Max. No. 
ref] coun 


For data input 
|D | Total 











[-[a|c|-|2[o/=[m) 


= = a tale | en | 


~< 


IN| <|x/=[</¢]4/a/2/0/0/ 0/2/23) 























CATEGORIZED TOTALIZATION [II] 


= 


PROGRAM NO. 
P4—H- 15 





: “BY sCLEAR 

: INPUT "MAX="7A 

: END 

» "ANSINPUT "CODE.NO.="7B 

: INPUT “DATA=";C 

: IF B>ABEEP 2:GOTO 40 

: B=B+9:ACB)=A(B)+C:D=D+C 

: GOTO 40 

: "C'SFOR F=1TO A ; 

: G=F+9 :E=ACG) /D+SGN ACG) *.00005 : E=E* 100 

: PRINT USING "H###" FZ FFUSING "HHHHHHHHHHH 
"ZACG) FUSING “HHHHH HAF ERA 

: NEXT F 

: USING :PRINT "TOTAL",D 

: END 
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SHARP 


7 PROGRAM NO. 
Title RANKING DECISION 


[ Formula ] 
This program decides rankings of some data and outputs them in the order from the highest to 
the lowest, regardless of whether data are zero, minus or plus. 

[ Example ] 
When these numbers “123, 23, —45, 0, 45, 854, 51, -564, —0.025, 0, —56, 456, 23” are put 
from the highest to the lowest, the result is “854, 456, 123, 51, 45, 23, 23, 0,0, —0.025, —45, 
—56, —564”. . 

[ Operation ] 


CLOAD YH16*  ffyteR 


1) Data input 
‘SHFT, (B) 


(The computation takes about 5 minutes 


Data ENTER 
eed because of rearrangement of 35 data.) 


2) To start calculation 
(A) 
ENTER] data are displayed in the order from the highest to the lowest. 


= 
~ 


Input Display 
DATA= 


Eo 
paras 
feces 
ene 


3 
= 
= 
os 


—_ 
m 


erie eat 

| / 

a Pee 

i 84.000 | 

mal]? 456.0000 | | 
el 
lineal 
eal 


ae 


[nal 


El 


NTE 


13 —564.0000 


m 


a 
2 
3 
i ee 
2 a 
[6] (an) 
Ei 
8 
a 
10] 





Title RANKING DECISION 
Ali] v 
/Bi2| v 





: "B':G=O0:CLEAR :B=10 
: INPUT "DATA="ZA(B) 
: G=G+1 
: IF G>35LET G=35:PRINT “MAX.OVER PUSH A" 
: END 
; : B=B+1 
o. of data : GOTO 20 
: ee A" } 
: FOR C=10TO G+8 
: FOR A=C+1TO G+t9 
: IF -ACC)>ACA) THEN 120 
: B=A(C) sA(C) =ACA) 2 ACA) =B 
: NEXT A 
: NEXT C 
: FOR A=1TO G 
: B=At9 
: PRINT USING “#H#A™ZAZUSING “AHHHHHHHHHH 
HHH" FZ ACB) 
: NEXT A 
: END 
37 





= 
Blelslalelslela/slslslalslele|~lelala| 


Data area 


vie 





~< 





G | 
HI 
o 
K | 
M1 
N 
O| 
P| 
| 
Gy 
S| 
LU 
We 
Ba 
Zz 
ea 
ie 
ad 
= 
Le 
Eel 
a 
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SHARP 


3 PROGRAM NO. 
Title CHANGING OF ORDER 


P4—H-17 

















[ Formula ] 


This program changes places of some pairs of data and outputs them in the order from highest 

to the lowest, or vise versa. A datum must be a positive number of 5 digits, and no figures below 
the decimal point can be input. 

A pair of data mean such things as an examinee’s number and his marks. Either of the examinee’s 
number and his marks. Either of the examinee’s number and the marks can be used as the 
standard for this program. 


[| Example ] 





Data 1 Notes: No. of data is possible up to 150. 
Examinee’s 
be number (Ex. 1) 

4 To put the data shown in the table left in order of the 
3 examinee’s number: 


1 (Ex. 2) 
5 To put them in order from the highest marks to the lowest. 


2 





























(Ex. 1) (Ex. 2) 
Data l Data 1 
Examinee’s Examinee’s 
number number 
1 1 








— 


















































2 3 
3 4 
4 5 
5 2 














Display Note 
ED 
ime 
































SHARP 


Title CHANGING OF ORDER 


[ Operation ] 


PROGRAM NO. 
P4—H-— 17 








CLOoAD VH1I7Y 


















1) Data input 


(SHFT] {€) 


Data 1 ENTER 
Data 2 


2) Output from the highest to the lowest or from the lowest to the highest: 


In order from the highest (1D) 
In order from the lowest SHFT] ~—(F) 





3) Changing of the order of data 1 or data 2 
Data 1 Data 2 









(sift) (A) 








Result displayed Result displayed 





ENTER 


slole[~folalalefol—l | 


PROGRAM NO. 
Title CHANGING OF ORDER 


re a nn content 


fea com 
LC | 3| Input data 1, 


Input data 2 













10: "C'%:G=0:CLEAR :B=10 
20: INPUT "DATA 1="-C 
30: INPUT “DATA 2="7D 









40: ACB) =C+0/100000 
SO: B=B+1:G=G+1 







60: GOTO 20 
70: "A™:0=0:GOTO 90 
80: “B':0=1 { 





90: FOR C=10TO G+t8 — 
100: FOR A=C+1TO Gt9 
110: IF D=1LET E=INT ACC) :sF=INT ACA) :GOTO 13 








Data area 





0 
120: E=ACC)~INT ACC) sF=ACA)-INT ACA) 
130: IF H*E>H*FTHEN 150 
140: B=AC(C) :ACC)=ACA) 2 ACA) =B 
150: NEXT A 
160: NEXT C 
170: FOR A=1TO G 
180: B=A+9 
190: E=INT ACB) :F=ACB)-INT ACB) :F=F*100000 
200: PRINT USING “"####"ZAZUSING "HHHHHHRHHE" 
7E7F 
210: NEXT A 
220: END 
230: “F"sH=-1:END 
240: "D":H=1 
250: END 
359 







ajojz|a|r/x[¢|-|z/o]4/m/o) 


felelel(esis(=islelelslalalelslsl=alslele|~lola[a| 
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SHARP 


Title BIORHYTHM 


[ Formula ] 


PROGRAM NO. 
P4— 1-1 


: The idea of biorhythm is that each of man’s physical, sentiment and Intelligent has a rhythm 
from the very day of his birth. 











Physical (P): a cycle of 23 days 
Sentiment (S): a cycle of 28 days 


Intelligent (I): a cycle of 33 days 





The result of calculation with respect to date on which his condition becomes the worst.is as 
follows: 




















P: 
S: 
I: 


0, 11 or 12 
0, 14 
0, 16 0r 17 











Calculation can be made, however, only for the person whose date of birth is on or after Ist 
of March in 1900. 
[ Example I 


To find the biorhythm on 3rd of March, 1977 for one whose date of birth is 4th of February, 
1954: 








[ Operation ] 

CLOAD Y11Y [ENTER 

Display:. P: AFTER 1.5 (Means the date 1.5 days after the target date is the worst day in 
respect to the constitution.) 

S: TODAY (Means the target date is the worst day in respect to the sentiment.) 


I: AFTER 3.5 (Means the date 3.5 days after the target date is the worst with 
respect to the mentality.) 











Input Input 


Display Display 


Ec aa a 
ace AT 
a eel 
arcs? 


TARGET ? a 


ary 
~ 


>) 


( 


NTE 


_ 
ve) 
NI] on 
cS 
ad Staal] 
== 
= 
m 
EE 





cc 





sO rw 
fal 
= 
= 
m 
os 


wo 
Taal 
a= 
— 
m 
= 


ese ae 

ie 

as 

et ea 

[on fi eee ace 

[ ecris  Eeed Sie Se see 
i ae ey 

ly a, 

= 2 


I AFTER 3.5 





mm 
= 
=a 
foal 
= 








AS Ceo Sea 











= 
= 
as 
(@) 


iH PROGRAM NO. 
Title |BIORHYTHM 


i\Memory content 


A Vv 

B V 

Lc [3 os 10: “ANLINPUT "BIRTHDAY 2" Y,M,D 
20: GOSUS S00 

Dia Day 30: XEN 

=f} ____ 40: “B"sINPUT “TARGET 2?”,Y,11,D 
SO: 


50: Gosus 50C 
60: PENX 
70: AG="P" sB=23 
80: GOSUB 540 
90: ASS"S":+B=28 
pl), a 
1710: AS="I" 16333 
J (10 120: GosuUa 540 
K |11 130: END 


500: IF M-S>=sOLET Meilt1:GOTO 520 
510: Y=Y~1iM=435+i 


L {12 
Pats] Monn 520: N=INT (365.25*Y)+INT (40.6*M) +D 
sia 530: RETURH! 
N 


540: C=P-INT (P/B)*O8:BEEP 2 
55G: IF CoB/2LET Q=8-C:GOTO 590 
260: IF B/2=CPRINT ASZ" TODAY" :RETURE! 
270; IF C=QPRINT ASZ" TODAY SRETURN 
580: Q=B/2=C 
590: PRINT ASs" AFTER" USING “#HHRHH ENZO 
600: RETURN 
337 






























| 





































— 
bee! 


| Hill | 
& 











PT TT TT IN| <|/3/</¢|4/0/2/0//0/2| 
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SHARP 
CALCULATION OF VISCOSITY INDEX OF PROGRAM NO. 
Title PETROLEUM PRODUCTS p4—-1—2 
[ Formula ] 


This program calculates the viscosity index of petroleum products by the kinematic viscosity at 
temperatures of 37.78°C and 98.98°C. 
* Jn the case of viscosity index between 0 and 100 (100 not included) 


L—-U 


Ton x 100 —(1) 


VI= 


* In the case of viscosity index over 100 (100 included) 


10%—] 


00075 +100 —{2) 


VIig= 


VN = U —(3) 


In the case of oils having viscosity index of less than 100, use the formula (1) for calculation; 
and 100 or over, the formulas (2) and (3). 


Notes: U: kinematic viscosity of sample oil at 37.78°C 
V: kinematic viscosity of sample oil at 98.98°C 
H: kinematic viscosity of oil of viscosity index 100 having the same viscosity as sample 
oil at 98.98°C 
L: kinematic viscosity of oil of viscosity index 0 having the same viscosity as sample oil 
at 98.98°C 


Unit of kinematic viscosity: cSt 


[ Example ] 


ce Pw 
ee 38.18 SS oe 
Vi 


[ Operation ] 
CLOAD VY12Y  (euter 





Display 


ae 


138.1 8 [ENTER 


77.7 A (ENTER 













Title CALCULATION OF VISCOSITY INDEX OF PROGRAM NO. 
PETROLEUM PRODUCTS Bua 
ia content 
















10: "A" sINPUT ‘U="7A 

20: INPUT “V="7B 

30: INPUT "L="7¢ 

40: INPUT “H="7D 

50: X=(C-A)/(C-D) *E2 

60: IF X>=E2G0OTO 90 

70: BEEP 2:PRINT “VI="-X 
80: END 

90: Y=(104( (LOG D-LOG A)/LOG B)-1)/.0075+E2 
: BEEP 2:PRINT "VIE="7Y 
40 


Lo] — 
= = |< | 





Pt tT | Ini<|x]s]</¢[4)o/a|o/s/o/z/2/r[x|e[-|z]o/-)m/o/o) 


214 


SHARP 





















‘ PROGRAM NO. 
Title HEAT CONDUCTION OF HETEROSOLID-STRATUM 


{ Formula ] 





i to — f¢ 
tu (Outside) Heat loss ¢ = jo [Kel h] 
Nai 2 as 


= 





k = heat conduction ratio [Kcal/m-h-deg] 


tf, = to — Ww 





Sy ge tees 
cai Saas 07.1 


ty = tni — 


qn 
knA 


(Input up to 10 strata is possible.) 






[ Example ] 


j x=Il(m , v=! fy) 

3 

—o- @,= 0.25[fm) k= 1.2[Keal‘m-h- deg] 
é2= 0.12 H ko= 0.25 4 
é3= 0.15 4 k3= 0.75 y 

‘ e 

és Find ft, and ft, provided to is 900°C 
bz and tu is 100°C. 


{ Operation ] 
CLOAD V1I3Y _ [ENTER 








Input 


(a) | INPUT X,Y | 
aa) | 
| 
l 


[EwrER) | 9 
(ewten] | INPUT LK 
s 


an 
= 
mn 
uo 
m 
EJ 


T 
2 


J) 





Input Display 


eae 
: eel 
re= so0v08 |_| 
aes 
me 
7 
f= 
faa 


™m 
= 
=I 
m 
= 





—1 oO 
Ro} DO 
or 


(ENTER]| 
[ENTER] | 
? Saas 
es 
| 


El 


\ 


Qo 
—_ 
tw 


~ 
Ss 
bo 
on 
™ 
=z 





Oo 
— 
On 


al 
~~ 
on 


enter) | INPUT L,K 
INPUT TO,TU 








mm 
= 
= 
inal 
= 
















A : 
Title | HEAT CONDUCTION OF HETEROSOLID-STRATUM 


Memory content 
S2 





10: "A™sINPUT "INPUT X/Y"+Y-Z 
20: Z=Y*Z 
30: Y=0 
40: FOR X=1TO 10 
50: PAUSE X 
60: INPUT "INPUT L-K"-U-V:GOTO 80 
70: X=X-1:GOTO 110 
80: ACX)=U/ (V*Z) 
90: Y=Y+ACX) 
100: NEXT X 
110: INPUT "INPUT TO-TU",S,-T 
120: R=(S-T)/Y:PRINT "“Q=",R 
130: FOR W=1TO X 
140: S=S=-R*ACW) 
150: PRINT "T'ZUSING “HH FWUZ"="ZUSING “RARE 
AH HHARH";S 
160: NEXT W 
170: END 
229 


















om, 
dd 
>laol~ ts. sfels ylelelele|eiye ly 


Se Nel e eee eee eanvees 
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SHARP 


: PROGRAM NO. 
Title VAN DER WAALS’ EQUATION 


{ Formula ] 
This program finds out temperature (T) by the van den Waals’ equation. 


(P+-8%)(v—nb) = aRT 


loschmidt number (No. of mols) a,b: van der Waals’ constants 
volume (2) R=: constant of atmospheric pressure 
absolute temperature (°K) 
atmospheric pressure 
[ Example ] 


Find the absolute temperature T of 10-£ oxygen of 3 mols and 4.3 atmospheric pressure, 
provided a is 1.36 (?-atom/mol?) and b is 0.0318 (2/mol). 


Answer is 177.84 (°K) 


[ Operation ] 
CLOAD VI4VY _ (enter 


Input 





| 
2 
3 
4 
a 
reo 
| 
| 
to 





Title VAN DER WAALS’ EQUATION 


Memory content 









2 “A'SINPUT "N=", 
20: INPUT "P="7P 
30: INPUT "V="7V 

A 
B 







40: INPUT "A="; 
50: INPUT "B="; 
60: R=.0821 
70: T=CPHA*N*N/ CV*V) ) * CV-N&B) / (N*R) 
80: BEEP 3:PRINT "TC(K)="-T 

: END 
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SHARP 


Title BOILING POINT OF COMPOUND (3 COMPONENTS) 


[ Formula ] 


iy ge NO. 
—1-5 













The boiling point of pure matters can be found using the Antoine’s equation. 


B 
C+td 





log P (mmHg) = A 


A, B and C in the above equation are constants. 












If the mol percentage of three components is a, b and c (a+ b + c= 1) and their steam pressure 
is Pa, Pb and Pc, the total pressure is represented as ‘“‘a-Pa+ b-Pb + c-Pc”. 


In order to find the boiling point at the atmospheric pressure, increase “‘t” by 1°C ata time till 
the total pressure becomes 740 mmHg; thereafter, increase “t” by 0.1°C at a time; and stop it 
when the total pressure exceeds 760 mmHg. 


[ Example ] 





Suppose you have a compound of benzine of 50 mol%, toluene of 25 mol% and 0-xylene of 
25 mol%, find the boiling point and equilibrium vapor composition of this liquid. 





[ Operation ] 
CLOAD VYI5Y _ (Ewer 




















Input Display Note 
80.1 [ENTER 760.0001852 f\ 
(ENTER) | No-2 BOILING 


(ENTER) | No-3 BOILING A 
144.4 ENTER, 


0.5 ? 


0.25 ENTE me | LOWEST BOILING 


80.1 46 BOILING 95.5 
NTER}{ No-1 596.6929 


Display 
No-1 A, B,C 











[SHET| as 
6.90565 ae 


a 
(eoeal 
Pa 


[aa] 





ie = 
= 


mg 
° 
9 
@ 
ls[zlel=lalalele[s[=[ | 


(on 


7 


i 


6. 99891 (TER 


[onl 





EEEEEEEEEEL 
Pe 








SHARP 


‘ PROGRAM NO. 
Title BOILING POINT OF COMPOUND (3 COMPONENTS) 


Display | Note | 













Title BOILING POINT OF COMPOUND (3 COMPONENTS) | 2 1c 


Memory content 









10: "AN SINPUT "NO-17 Ar8-C"%A,B-C 
20: INPUT "N02 A-B-C" De E-F 

30: INPUT 'NO-3 A-B,-C"/G-H-1 

40: INPUT "NO=-1 BOLLING" ,/X 

50: GOSUB 500 

60: PRINT "4",X 

7Q: INPUT “"NO=2 BOILING',X 

80: GOSUB 510 

90: PRINT "2"-Xx 
790: INPUT "“NO#3 BOILING'",X 

110: GOSUB 520 

120: PRINT "35",x 
150: INPUT "NO=1/2 MOL RATE ?"4J-5 
140: INPUT “LOWEST BOILING",T 
150: K=T:GOSUB 500 

160: Y=kxJ:X=T:GOSUB 516 

170: YRY#X*S3K=T:GOSUE 520 

1803 X=k* (1-J-5) +¥-740 

190: IF X<QLET T=T+1:GOTO 150 
200: X=X=20 

210: IF XKOLET T=T+.71:G0TO 150 
220: BEEP S:X=TsPRINT "BOILING", x 























250: X=T:GOSUB 500 
240: X=Xed PRINT “NO-1",X 
250: X=T:G0SU8 510 


26C: X=X*StPRINT "NO=2",X 

270: X=T:GOSUB 520 

200s X=X*(1-J—S) sPRINT 'NO-3",X 
299: END 

5003 X=A-B/ CK+C) sX=T0*X RETURN 
510: X=D-E/ CX+F) :X=10°X:RETURN 
520: X=GrH/(X+1) :X=10°X:RETURN 
528 


<|x]=]</¢]4/]2/0/v/o[2/8/r [|< |-[z]o[-)m| 0/0) 
CANTATA 
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SHARP 
7 PROGRAM NO. 
Title CANNON SHOT GAME P4—-x-1 


[ Formula ] [ Outline of the game ] 





This program shows a game in which 
W (Wind velocity) shells are fired on at the target. 
Ones who take part in this game are 
let know only the distance “E” between 
the firing point and target, and the valve 
of wind velocity “W”’. 
Input an initial value not exceeding 
8 digits in the first place. A radius of 
the target is 1. 
When a fired shell crashes into a barrier, 
x V BARRIER is displayed. 
When the shell gets over the barrier, 
the distance between the place the shell 
has attacked and the target is displayed. 
When the shell hits the target, YHIT! V 
is displayed. 
x=(V,csQt+W)t =Vyt Take the wind velocity into considera- 
tion when you make a challenge. 




















Firing point 
















To get over the barrier, the equations mentioned 
below should be considered first. 






“Acceleration of gravity” g = 9.8 [m/sec?] 







y=V,SMQ-t —4.9t? =Vyt — 491? 





Then, the following formulae should be satisfied. 











V 4.9 
@—aA —-—— A? > D 
V; Vv? 







>D 





So that target x = eM can be aimed at. 







[ Operation ] 
CLOAD Yx1V 















Input Note 


Distance “E’ 
‘ARGET E 84563.33795 


E 
i 


> 








= 

Lys) 

oo 

S ps > 
alo colo on 
e|o oro fory 
foal ellis wo 
= gy 2) Is 
S| Ce od = 









Title CANNON SHOT GAME eee 


[Memory content | ©] content 






















10: "A':Z=O:INPUT “INITIAL=";S:GOSUB 500 
20: D=P:GOSUB 500 

30: W=0:GOSUB 500 

40: E=P:GOSUS 500 

50: J=0/200:A=ExJ:GOSuUe 500 

60: J§=0/200:C=ExJ 

70: B=E-A-C 

80: BEEP 2:PAUSE E-i! 

90: INPUT "V-Q ?",G-/F:Z=Z+1 
100: H=G*COS F+W:sI=G*SIN F 
110: K=I/H*A-4.9/CH*H) XAKA 
120: L=I/H* (A+B) -4.9/ CH*H) * (A+B) * (A+B) 
130: IF K>DIF L>DGOTO 150 
140: PAUSE “BARRIER’:GOTO 80 
150: M=H*1/4.92N=M-E 
160: IF ABS N<X1BEEP S:PRINT “HITI’,Z:END 
170: PAUSE "TARGET E",N 
180: GOTO 80 
“S00: Q=ABS (439147+Q+S) 

510: T=E8+1:U=23%0 

520: Q=U-INT (U/T)*T 

530: P=INT (£4*@/T) 

540: O=INT (E2*Q/T) 

550: RETURN 

393 - 


~~ 


Ble 2 3s) = 
—_ = 


Number of times 


I 
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SHARP 


i PROGRAM NO. 
Title BALL ROLLING GAME 


[ Formula } 





This program is a game where a ball is rolled to 
tun through between walls as shown in the 


figure right. Walls of 10-cm width are standing ae 20. “ gee : aus , 

: ° om oints poin on 
at 10-cm intervals. The openings between walls aig lau F Sane oS 
are given points: the extreme left is 10 points, 10° 10° 10° 10 


the next to it is 20 points, etc., up to 100 

points which are given to the extreme right. 

Every time the ball is rolled through an 

opening, points the opening has are added to 

your score, rom 
No points are made if the ball runs through the acm 

opening the ball has been previously rolled 

through. You can roll the ball ten times in one 


game. 

When the last throw is over, your score is 6 
displayed. 

Competition is made by points players has 

gained. A 


Input the distance ‘“‘a’’ and a radius of the ball 


6697 


r’ in the first place. Then input the angle 
“9” to determine the direction the ball takes. 


[ Example ] 


a=100cem, r=2cm 


[ Operation ] 
CLOAD Yx2Y (tute 


Input Display | Note | 
DISTANCE DTS |__| 
en cee: 


[trout | oispiay | Note | 

AN 

0 10 Point, No.of 6 
ie] ___|ancue= 
15 10 

AN! 


me 1D 
2/8 
elt 
S 


Run through 
30-point opening! 


wo] o 


SOOO Soe me 
o 
; 
2 
= 


times left 








1 (enter } 10 g Runthrough | 37 [ENTER 0 4 Run through | 
—— 10-point opening 40-point opening 
70a A 
EER 30 8 20-point pone tl Eee | 10.0 3 
also? (wiser 2 |: *d 


é PROGRAM NO. 
Title BALL ROLLING GAME 


Memory content 























10: “A™:CLEAR 
20: J=10 
30: INPUT “DISTANCE RADIUS"+A-K 





40: FOR I=1TO 10 
50: BEEP 1:PAUSE O-J 
60: INPUT “ANGLE="7L 
70: B=A*TAN L!=C=K/COS L 
80: D=INT ((B+10)/20) 
90: E=D*20-10: F=E+10 
100: IF (D>0)*(D<11)=0GOTO 150 
110: IF (B-C>E)*(B+C<F)=0GOTO 150 
120: IF AC164+D)<>0BEEP 2:G0TO 150 
130: ACD+16)=1 
140: O=04+D*10:BEEP 5 
150: J=J-1 
160: NEXT I 
170: PRINT “SCORE="70 
180: END 
250 


o. of times left 


¢|=|z[o]"|m]/0/0]0) 
S| 


= 
~~ 





PT TTT TT IN <|x|s[</¢/4/a/2]0/9/ol2z/2/r/) 
Pee PTT TEE 
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SHARP 


Title REVERSE GAME 


[ Formula ] 


PROGRAM NO. 
P4—-X-—8 


This program performs a game in which figures from 0 to 9 are put at random into a ten-figure 
number with each figure used once, and the figures are changed in their places to make the 
number as “1 2 3 --++.-++- 8 9 0” by REVERSE. 












REVERSE is performed, for example, as follows: 
© 6-digit REVERSE: 3456102987 > 3456789201 
© 3-digit REVERSE: 3456789201 > 3456789102 
© 2-digit REVERSE: 3456689201 > 3456789210 









Note that if zero (0) takes the extremely-left position of a number it is not displayed. 

The number of trials is displayed. When a game is over, you can have a choice whether you will 
have another game with the same number or other. 

The less the number of trials becomes, the better. 

Input a number of 8 digits or more as an initial value. 

When a game is over, the display turns out to be YS AME — 1 DI F—2 Input “1” if you have 
another game with the same number as before, or “‘2” if with a different number. 












[ Operation ] 






CLOAD YX38Y _ [eater 


























input Note 
am 
] 
1 





Input Display Note 


SAME-I DIF-—2 


\ 


fon] 

= 

= 

taal 

z= 
fos] 
= 
mn 
= 





Reverse is performed with the 
same number if ‘1 [ENTER] ”’, 
or with a Different number if 


“2 s 








faa] 
= 
= 
mn 
= 





AN 
[aa] 
= 
= 
ma 
mm 


NU 
2 
2 
2 

NU 


oo 
™ 
= 
= 
rma 
a2 


34509867 
eWTEN] 1234509876 : 











we 
faa] 
= 
= 
m 
= 
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: PROGRAM NO. 


Memory content 


Al 1 No. of digits 
|B | 2| 1234567890 
jej3s} ov 


Count of No. of digits 









10: "AN:CLEAR :INPUT “INITIAL=":K 
20: L=E8+1 
30: C=E11/81-11:B=C 
40: D=10:E=D 
SO: K=K*232X=K/L 
69: K=K-INT X*L 
70: X=K/D/D:X=X-INT X 
SO: X=X*D+1:X=INT X 
90: GOSUB 520 
109: E=E-1:X=E 
110: IF X<>0GOTO 51 
120: X=C:H=X 
130: X=2:GOSUB 500 
145: PRINT CzINPUT “NUMBER=";X:GOSUB 520 
150: E=E+1:X=C 
160: IF X=BGOTO 180 
170: GOTO 130 
“9180: X=D:GOSUB 500 
190: PRINT "TRY="7 
200: INPUT "SAME-1 DIF-2",2Z 
210: IF Z=2GO0TO 30 
220: C=H:£=0:G0TO 130 
SOC: BEEP 1:X=X-1:1F X<>OGOTO 500 
516: RETURN 
520: A=X:F=X:G=0 
530: C=C/D:G=G+C-INT C:G=G*) 
549: C=INT C2 F=F-1:X=F 
550: IF X<>OGOTO 530 
2 C=104A*C+G:RETURN 





















For random digits 
For random digits 


— 
been! 


Pt Tt tT IN| <|x/8]<[e]4[0/2/0//o/z/2/r |] ¢|-/z[o/-[m/o 
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SHARP 


PROGRAM NO. 
Title MEMORY TEST P4—-X—4 


[ Formula ] 





How many digits indicated at random can you keep in mind temporarily though securely? 
The percentage of right answers necessary for passing this test is 80% after challenging the test 
10 times. In addition, if you answer wrongly three times the display tells you that you are not 
competent for the number of digits you have been trying to remember. 

No. of digits you succeed in remembering 


Q OF MOTE vrssesseseeeeneeeeees Genius 
Bid Ginetta ion niece A Bright 

FF obaenaeh ecetecdetaneesteheunise Good 

6) sieeentteeesteintadi tee taeen Mediocre 
So idosthtah deca ueledouatenes Aging 
FOL 1688 dicslatis hile isteay ss Idiotic 


Input the number of digits you will challenge to remember in the first place. Then a question 
No. 1 is displayed for about a second. Remember it, then input an answer. Repeat this 
performance ten times. When your answer is correct, a sound is heard three times, but if wrong 
no sound is heard. Now challenge a genious for memory! 


[ Operation ] 
CLOAD Yx4Y (tien) 


DIGITS = 
_ANSWER= 
[ANSWER 
PANSWER= 
85.5107 (ewten}|76 8451 
ANSWERS 


A total of ten 
991716 questions give: 


ANSWER = 
991 71 6 (ENTER) | MEDIOCRE 


ee al 














[= fofotateofat—| | 





—_ = 
~ 
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é PROGRAM NO. 
Title | MEMORY TEST 


Memory content 


A} 1 No. of digits 
Biz] or | 













: “A':K=0:L=0 

: INPUT “DIGITS=";A 

: FOR I=1TO 10 

: X=ABS (439147+X+Z) :B=E8t+1 

50: G=23*X:X=G-INT (6/B)*B 

60: Y=INT €104A*X/B) +1 

70: IF Y¥<10*CA-1)GOTO 40 

80: BEEP 1:PAUSE USING “##HHHHHHHHHH' 7Y 
90: INPUT “ANSWER="FT 

100: IF T=YBEEP 3:L=L+1:GOTO 120 

110: K=K+1 

120: IF K>=3PRINT “BEYOND YOUR FACULTY !:END 
130: NEXT I 

140: IF L<8PRINT “UNSUCCEED”: END 

150: IF A>=9PRINT “GENIUS”: END 

160: IF A=8PRINT “BRIGHT”: END 

170: IF A=7PRINT “GOOD”: END 

180: IF A=6PRINT “MEDIOCRE”: END 

190: IF A=SPRINT “AGING”: END 

200: PRINT “IDIOTIC”: END 

351 


7 Vv 











No. of wrong answers 


8] 
ae 
tg 
ay 






Pt ty tT Ty IN| <|x[s[</¢/4[o/2|0/v/o/2z]2/r]x/¢|-|z/o/4)m/o] 0) 
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SHARP 


Title ROCKCLIMBING GAME 


[ Formula | 


PROGRAM NO. 
P4-—X-5 


This is a game played by 2 persons who emulate each other in attaining the summit of a 100- 
meter-high rockwall. 
One of two players has the right of attacking, and can choose either of the followings. 











1. Continuation of attacking the rockclimbing. 
The sum of pips on two dice is given the player as a distance he has gained. However, if one 
of or both of the cast dice show one pip, he is to miss his footing and fall onto the footing 
which he has previously secured. As far as he evades falling, he can keep the attacking right. 
But if he falls, the attacking right is transferred to his competitor, which is told by peeping 
sound. 









. To stop there for securing the footing. 
In this case, the attacking right is transferred to his competitor. 







[ Operation ] 






CLOAD YX5‘  (ENTrA 

















Display | Note | | 
armcer pea | a] ice 
1 


a z= et 
2 aa 
ja] few |i sto 2np=o  USieiimovery!] [aNd 
js] ice 5 Pips fice fra] [ATTACK DEFEND? [ 
a a 15 = | 
G fae 
o a 








[arrace bree Pf ie 2 


| ICE 5 1 8] ATTACK-1 DEFEND-2_ |PS@P sound, 
| se ND Attack of 2ndl | ar) |1ST=9 2ND=0 
darracer pemena | pel dT SCS 
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Title ROCKCLIMBING GAME 


Memory i “WanoRycontene’ ch ee oe 

or —1 
Pips of dice 
Pips of dice 
Height of 1st mover 
Height of 2nd mover 
Footing of 1st mover 
Footing of 2nd mover 











10: "A'":G=0:6=0:1=0:H=0 
20: A=1 
: oo 500 


IF A={LET Z5="1ST" GOTO CU 

60: Z$="2Np" 

90: BEEP 7:PAUSE 78 

700: INPUT "ATTACK=-1 DEFEND=-2"-Y 

110: VsI+GsU=H+E:PAUSE USING "####R'2"TSTS";U 
a" aWib=" sy 

126: PAUSE "DICE "-BeC 

1350: IF Y=7G0TO 190 

140: IF A=1LET HSH+E:GOTO 160 

150: I=1+G 

160; IF I>=100BEEP S:PRINT "2ND WIN SEND 

170: IF H>S1QO0BEEP S:PRINT "4ST WIN"SEND 

180; A=-A;G=0:E=0;G0TO 30 

190: IF (B=1)#(C=4)<>OBEEP 2:A=-AsE=0:G=0: 
GOTO 30 

200; IF A=ILET E=E&48+0:GO0TO 30 

210: G=G+B+C:GOTO 30 

500: J=@tJ:sxXsJ*5-INT (J*5) id= 

510: X=X*7:X=INT X 

520: IF X<>ORETURN 

§30: GOTO 500 

404 




















Blais sls(sislslalsislalelelsl|=alslele|~lole[aloe[~[- 


il 
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SHARP 


. 16) AM NO. 
Title GUESS-NUMBER GAME ee ie 


[ Formula ] 


This is a game to guess a three-figure number by the computer. 
Every time a trial is made, the number of trials and your input value are displayed for a second. 
Then a comment is displayed for a second. 


For example, if the display shows: 
COMMENT 1 1, 


the left figure tells that one of the three figures you have just input coincides with one of the 
computer-chosen three figures and its place is also correct. 

The right figure tells that one of the rest (2 figures) coincides with one of the rest of the com- 
puter-chosen ones but its place is wrong. 


Therefore, if commented as follows: 
COMMENT 3 0, 


all the three figures you have input are correct in places as well as figures themselves. So 
VERY GOOD and the number of your trials are displayed. 


[ Operation ] 
CLOAD Vx6Y [ENTER 


Input Display 
sremma[ 4 876 


4 
COMMENT 1 0 

385 (ENTER) 5 385 

305 





COMMENT 2 0 


COMMENT 3 0 





Title GUESS-NUMBER GAME 


Memory content 


Eu eae 
Dn ieee 
Ee: a tise tennant 










10: “A™SINPUT “INITIAL=";K 

20: L=L+K 

30: K=7+L*eL*23 

40: KSINT (K/E2) sL=K-INT (K/E3)*E32X=L 
SO: FOR A=2TO 4 

60: GOSUB 500 

70: NEXT A 

80: IF (B=C)+(B=D)+(C=D)<>0GOTO 30 
90: Y=1 

100: BEEP 1:INPUT "x="7X 

110: PAUSE YX 

120: FOR A=6TO 8 

130: GOSUB 500 

140: NEXT A 

150: J=0:L=6:P= 

160: FOR A=2T0 4 

170: IF ACA)=ACLOLET J=J+1 

180: GOSUB 510 

190: GOSUB 510 

200: M=F:F=G:G=H:H=M 

210: Lel-2 

220: NEXT A 

230: Y=Y+1 
240: PAUSE “COMMENT "ZUSING “Hite sd eP 
250: IF J<>3G0TO 100 

260: Y=Y-1:BEEP 2:PRINT "VERY GOOD'sY 













Comment 





For random digits 





ie |al¢|=[z|o[-[m]o 
s/lslelel= 












Coment 











270: END 
500: ACA)=X-INT (X/10)*10:X=INT (X/10): 
RETURN 
510: L=L+t:sIF ACA)=ACLYLET P=P+4 
520: RETURN 
391 






Tried number 


No. of times 


pt ty tt | IN| <[x/s[</¢)4)0/9/0/2/ 0/2/38 
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SHARP 


. PROGRAM NO. 
Title DRIFTING-AND-SURVIVING GAME 


{ Formula ] 


This is a game to steer a drifted small dinghy to 
get an island of safety in storm. 

The initial drifting location is at (—SO, —5S0). 
Input a distance you desire to gain in each of 
the x and y directions, though the dinghy does 
not move on as you wish due to the wind. 
The wind blows with the velocity of between 
—5 and 5 in the x and y directions. The 
wind velocity changes at every input. A present 
location is displayed as a comment by the x—y 
coordinates, each in sign. 

For example, if displayed as follows: 


SGN X = 1 SGN Y = — 


the x coordinate is positive and the y coordi- 
nate is negative. 

The radius of the island is 1. When you succeed 
in arriving the island, a landing point and the 
number of trials are displayed. 


t 
| 
| 
t 
| 
l 
\ 
I 
| 
I 
I 
I 
I 
! 





Initial position 


[ Operation ] 
CLOAD VYx7V Get) 


Input Display 


123456 7ENTER! 








fs ole le [male peat 











Title |DRIFTING-AND-SURVIVING GAME 


Memory content 
PA] 1 Wind velocity in x direction 
Wind velocity in y direction 


Input value in x direction 


Input value in y direction 
























10: “A™:X=-50: ¥=~50:R=0 

20: INPUT “INITIAL=";F 

30: GOSUB 500 

40: A=W 

50: GosuB 500 

60: B= 

70: R=R+17:BEEP T2:INPUT “X="7C 

80: INPUT “Y="7D 

90: X=X+C+AsY=Y+D+B 

100: E=X*X+Y*xY 

110: IF E>1LET P=SGN X:Q=SGN Y:PAUSE USING " 
HE“ "SGN X="7P2" SGN Y="7Q:GOTO 3 
0. 

120: BEEP 3:PRINT USING “##.8"2"X="7X7" Y=" 
7Y7USING “"#HHH"S" ="7R 

130: END 

500: G=ABS (439147+G+tH) 

510: I=E8+1:J=23*G 

520: GaJ-INT (J/I)*1 

530: F=INT (10*G/1) 

540: W=5-F 

550: RETURN 

301 


Sign of x coordinate of 
present location 
Sign of y coordinate of 
present location 


No. of trials 


x coordinate of dinghy 
y coordinate of dinghy 


IN| <|x/]</¢]4/@]3/0/0|0/2/2[F|>|¢/-|z/0/[m/0/0]0| 


SP ee ee 


SHARP 


‘ : PROGRAM NO. 
Title SOFT-LANDING GAME 


[ Formula ] 


How can a rocket having a strictly limited quantity of fuel be soft-landed? 

The rocket falls down freely unless the rocket engine be ignited to slow down its descent. If 
ignited too early or if too much fuel is consumed for serving the engine up, the rocket will go 
up to become nothing but dust in the space. But if the engine is ignited too late, the rocket will 
crash into the planetary surface. 

The object of this game is to soft-land the rocket with minimum downward velocity by 
controlling the time of ignition and fuel consumption. 

Gravity of the planet is S m/s?. 

Fuel consumption of 5 units during a unit time will cancel the gravity. 


Equations: 
: height 
H Ho + Vot + > at? : velocity 
: acceleration of gravity 
V=Vot at - time 
vi=Vée + 2aH : . initial velocity 
initial height 
initial fuel 
fuel consumed 
remaining fuel 


H,.=500 , Vo=—50, Fo=120 


{ Operation ] 
CLOAD Vx8V 


Note | 
wi _w pi soo [Cs 
waste Fs | 


— . — 
~~ 









Title | SOFT-LANDING GAME 


Memory MSGR RORKGRE Oe; 8 > OCU eee ee 












10: "AMSUSING 2VeeSO:H=50G2:0=7120 
20: PAUSE "H="7H 

30: PAUSE 'V=a"sV 

40¢ PAUSE "FUELS", Q 








SQ: LF ¢<=0GOTO 15 
GO: INPUT "WASTED Fe"7P 
7G: ITF P>QLET P=0 
. SO: @=Q-P:0=P-5 
SO: HeH+Vt0/ 22VeVt0 
0 
10 






7 







: IF H>QGOTO 20 

: IF ABS H<SIF ABS V<SPRINT "YOU ARE RIGH 
T' SEND 

120: PAUSE "H="sH 

150: PAUSE "V=a",V 

140: PAUSE "FUEL=",Q 

150: PRINT "GOOD GY" 

160: END 

221 





5 






‘a 










16 Fuel consumed 


Remaining fuel 






al vaniy 


Pt Tt | IN| <[x}3]</¢]4]/a/2/0/ 20/2/38 
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SHARP 


Title CALENDER CALCULATION 


{ Formula ] 


This program figures out an unknown day of the week in respect to a known date. 


[ Example ] 
February 4, 1954 
February 4, 1978 

{ Operation ] 
CLOAD Vx 9 (enten) 


Display Not 


YEAR MONTH DAY ? 


(x) 


wo 
on 
a 
oa] 
= 
= 
m 
Ed 


ae 


ER|| THURSDAY 





PROGRAM NO. 
Title CALENDER CALCULATION 


Memory content 


ATT ve | 
fe [2| Mon 
Day 










1925:G0TO 50 
1911:G0TO 50 
1867:G0TO 50 





: INPUT ' "YEAR MONTH DAY ?",7A/B-C 
60: A=X+A 
70: IF B-3>=0LET B=B+1:GOTO 90 
80: B=13+B:A=A-1 
90: N=INT (€365.25*A)+INT (€30.6%B) +€-621049 
100: N=N-1:Y=CN-INT €N/7)*7)*10+110:BEEP 2: 
GOTO Y 
110: PRINT "MONDAY": END 
120: PRINT "TUESDAY": END 
130: PRINT “WEDNESDAY :END 
140: PRINT “THURSDAY':END 
150: PRINT "FRIDAY" :END 
160: PRINT "SATURDAY": END 
: PRINT "SUNDAY": END 












‘vA 


B(RIRSIS elSslelslslalalslelslalslele|[~leolelale| 


Pt tt tT IN| <|x|2]<[¢]4/o) 2/0] /0/2/2/r|5/¢|-|z/o/-[m[o/0) 
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SHARP 


Title TREASURE-HUNTING GAME 


[ Formula ] 


PROGRAM NO. 
P4—-xX-— 11 








This is a game in which the location of treasure is 
decided by random numbers and a player hunts out 
the treasure. 

Your initial position is at (0, 0). Input a distance you 
want to cover in each of the x and y directions. 
If you get out of the matrix shown on the right, the 
error indication appears, so try again. 

A distance between you and the treasure is indicated 
as a hint by the value of “ABS(x—a) + ABS(y—b)”. 
You are allowed an energy of 60 at the start of 
treasure hunt. The energy decreases by a sum of 
distances in the x and y directions which you 
make. And when you locate the treasure, VHIT is 
displayed and the energy increases by 5. Every time y 
you input, the following indication appears: 

































































Example: 









4 5 4 51 


x coordinate of |ycoordinate of Distance bet. you Remaining 
present position present position and treasure (Hint) energy 



























Every time the treasure is hunted out, a new location of the treasure is fixed by random 
numbers. You continue to hunt the treasure until the energy you have exhausts. The number 
of hunted treasures is displayed at the end of the game. 











[ Operation ] 
CLOAD YX11 fare 














Display 
7 oa 
fed 





—_ 7 a 
~~ 


bo 
w 
AE) 
iin 
a 
fee) 
~ 


e[sfelelale(si=| | 
= 
F | 
S 
oO 
re 
ne) 


nh 
ma 
faa 
m 
5) 
IN) 
“I 
fora) 
= 


Continue fill energy exhausts 





a 
Cn (Sa 
he) Ff 











. PROGRAM NO. 
Title §$TREASURE-HUNTING GAME 


Memory content 


FA [1 x coordinate of target 
y coardinate of target 


Distance 





Nes ot targets found 10: "A":2=60:X=0:Y=0:D=0 
20: INPUT “INITIAL=":H 
30: GOSUB 500 
40: A=W 
50: GOSUB 500 
60: B=W 
70: C=ABS (X-A)+ABS (CY-B) 
75: PAUSE USING “#H#H##™FX7Y2C? 
80: PAUSE USING “##HHH"FX7Y7C2 
90: INPUT "DX DY 2",P-0 
100: Z=Z-ABS P-ABS Q 
110: IF O>=ZBEEP 4:PRINT "TARGET"/D:END, 
120: IF (X+P>=0)*(9>=X+P) *(Y+Q>=0) * (9>=Y+Q) 
<>0GOTO 160 
150: PAUSE "ERROR":GOTO 80 
160: X=X+P:Y=Y+Q 
170: IF X=AIF Y=BGOTO 190 
180: GOTO 70 
190: BEEP 2:PAUSE “HIT" 
200: D=D+1:7=2+5:G0T0 30 
210: END 
500: E=ABS (439147+E+F) 
510: G=E8+1:H=23*E 
520: E=H-INT (H/G)*G 
530: W=INT (10*E/G) 
540: RETURN 
367 
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PLT Tt IN <|x/8/<[¢[4)0/2/0/0/0)2/2/r [a/c |-|z/o/4)molo|o 
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YOUR OWN PROGRAM 


SHARP 


PROGRAM NO. 


Title 


Note 


m | co 
—-|e 


aise ee is Pe ler SI 


Display 








Input 





Note 





Display 











Input 





° 
z 
= 
< 
a 
10) 
° 
a 
o 


® 
= 
| 








Statements 














UREA) ene 
>| |x| 









































Line number 


mory content 


oO 
a[-[s[e[+[ele(efele[SlElS[ele/eleielelela lal 


<[mfofofu)ulo]z|~]>|=|4)/2/z]o]a)/o]aja)r [> 




















PROGRAM NO. 








YOUR OWN PROGRAM 


SHARP 


Co isiels[slstelTel=iS 








PROGRAM NO. 



























| 


Line number 


mory content 





® 
z[r[s[e[+[elelefele[SlElS[elS(e(SFlelFielals[8/s[ 8/8] 






































<[m/ofa/wlu|olz|-[>/</4[2|2/oja[oje|ojr|>)/>/3/x]>|y] | | | | tt 


— MEMO — 








ey *PN;} move) -1-10)-7 Wale)" 


OSAKA, JAPAN 


‘Printed hammer] eF-a) 


‘0L117 (1010) 





